AVRIL 1985 


AVEC BASIC 
Æ L'avenir est structuré 
Atteindre la récursivité 
| B Programmez Picologo sur 
_ voire Amstrad” 


| GROS PLAN SUR 
QUATRE LOGICIELS 


Découvrir Logo sur T07 
1 107-70 
BE La troisième dimension 
ur Spectrum | 
Hadès, Assembleur p 
| Oric-1 et Atmos 
L: . Master 64, un vrai 


A L'ESSAI 


M Le Basic du Guépard, du 
classique et du solide 

& VG 5000 : pour les petits 
budgets 


Belgique : 154FB - Canada : 2.956C - 


Suisse :6FS 


« as 
cstons 


PC 


ae 
s 
se 


e 
9 


- 7 \E 


1 COUVERTURE 

Les lutins qui glissent et qui 
rebondissent sur les marches 
de l'organigramme ne sont 
autres que les démons de la 
programmation tels que 
Philippe Mairesse les a 
imaginés. Certains d'entre 
eux empruntent des chemins 
assez étranges. 


1 3 À VOS CLAVIERS 
1 ] LA GAZETTE 


DE LIST 


. 0 DES COURBES 


TRÈS ANGULEUSES 

Le cercle est un idéal dont 
les tables traçantes 
approchent grâce à une ligne 
plus ou moins finement 
brisée, Que se passe-t-il avec 
l'imprimante du X-07 quand 
on décide de transformer 
systématiquement les 
courbes en zigzag ? 


22 BASIC ET 


FONCTIONS RÉCURSIVES 
Peu utilisée par les 
programmeurs, surtout en 
Basic, la récursivité 
s'emploie pourtant sans 
difficulté. Découvrons-la sur 
Oric, avec une fonction dont 
les applications graphiques 
sont spectaculaires. 
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2 pe] POUR UN BASIC 
STRUCTURÉ 

Malgré l'apparition du 
standard MSX, rien ne dit 
que le bon vieux Basic soit 
en train de se figer. De 
nouvelles versions 
apparaissent depuis peu. 
Elles ont en commun d'être 
structurées : un hommage 
que le Basic rend à Pascal. 


2 9 LA TÊTE DANS 


LES ÉTOILES 

Lorsque vous levez le nez 
vers le firmament, vous vous 
posez peut-être des 
questions sur l'identité des 
astres qui y scintillent. Pour 
vous guider dans votre 
contemplation, utilisez un 
programme ; il est donné ici 
dans sa version PC-1500. 
Ainsi, vous ne rêverez plus à 
Sirius en admirant Pégase. 


A2 J 
&# à LE BASIC 
DD GUEPAKD 


C'est avant tout le 
classicisme qui caractérise le 
Basic du Guépard. Peu 
d'innovations, mais une 
formule qui n'a plus à faire 
ses preuves. Ajoutons 

CP/M + et NewDos 80, deux 
unités de disquettes, des 
batteries de secours 
incorporées, une conception 
robuste de l'ensemble, et 
nous obtenons une machine 
très sérieuse. 


souvent, il vaut mieux 

| adopter une autre solution : 
introduire d'abord toutes les 
données, puis passer ensuite 
au traitement. 


3 4 ANIMATION 


GRAPHIQUE SUR APPLE II 
Comment s'y prendre pour 
faire apparaître un petit 
avion sur l'écran de l'Apple 
et le déplacer à une vitesse 


raisonnable. 4 0 i 
AU QUARANTIÈME e 

DE SECONDE PRES ( 

Sur les TRS-80, l'horloge F 

3 4 PASCAL, interne égrène le temps L 
SUIVEZ LA PROCÉDURE nn ee _. Il c 

uand on doit introduire et | ©*/5Fe POUTTant Un Moyen 

ue toute une série de d'obtenir facilement une ï 


précision quarante fois 
meilleure. 


données, on peut le faire au 
COUP par Coup : 
entrée-traitement, entrée- 
traitement, etc. Mais bien 


42 LES COUPS D'ŒIL DE LIST 


42 3D MOVER POUR ZX SPECTRUM 

La troisième dimension sur le plat de l'écran. La cassette 
contient deux programmes, 5D Mover et 3D Basic, qui 
permettent de dessiner en perspective et d'animer dans 
l'espace les créations ainsi obtenues. 


"TS OS © 


44 MASTER 64 POUR C.64 

Sur une disquette protégée par clé électronique, Master 64 
réunit un ensemble d'utilitaires : générateur d'écrans, 
générateur de fichiers, extension du Basic, moniteur... Ce 
logiciel rendra de grands services aux professionnels qui 
programment pour des clients non informaticiens. 


47 LOGOMONDE POUR T07/T07-70 

La cassette de programmes Logo « prêts à l'emploi » est 
accompagnée d'un manuel qui présente de grandes 
qualités. On peut le lire avec profit même si l'on n'utilise 
pas un ordinateur Thomson. 


48 HADÈS 1.0 POUR ATMOS/ORIC-I ns 
Pour ceux qui veulent se mettre à l'Assembleur et au | Ha 
langage-machine, Hadès propose sur une même cassette, à . 
côté du programme d'assemblage/désassemblage Alé 


proprement dit, un moniteur, un sourceur et un débogueur. Al 
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BE VG 5000 

Conçu et fabriqué en France 
par Philips, le VG 5000 
dispose d'un Basic bien 
adapté aux besoins des 
débutants. Le prix très 
abordable de cet ordinateur 
explique sans doute la 
médiocrité du clavier. 


59 ET LE SUIVANT ? 


Parmi les tests 
d'intelligence, on rencontre 
souvent des séries de 
nombres dont il faut 
découvrir le suivant. 


50 sr 


ORDINATEUR A L'AUTRE 
Comment transposer sur un 
PB-700 un programme conçu 
pour l'Apple II. Une série de 
calculs intéressant les 
photographes amateurs sert 
ici de prétexte pour mettre 
en lumière les principaux 
problèmes qui se posent 
quand on doit transcrire un 
programme d'un Basic à 


l'autre. Examinons une solution PTOROUNEE CH DRE là 
programmée à ce type de petite mascotte des adeptes 
problèmes. de Logo : la tortue 
graphique. 
Le] 4 LOGO : LA 6 0 
CROISSANCE DES ARBRES UN PIANO 6 9 
BINAIRES DE POCHE MISEZ PTIT, 


Dans le précédent numéro de 
LIST, nous avions étudié la 
constitution et l'exploration 
des arbres binaires. Voyons 
maintenant comment 
enrichir les connaissances de 
notre programme. 
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Une routine en langage- 
machine permet au PC-1251 
de produire des sons autre 
que son bip. Et cet 
ordinateur devient un 
minuscule instrument de 
musique. 
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62 UTILISEZ VOTRE 


| Comment contrôler, grâce à 
quelques POKEs bien placés, 
le fonctionnement du lecteur 


65 UN PICOLOGO 


Sus aux millisecondes, haro 
sur les octets superflus ! Un 
nouveau défi (HP-41) lancé 
aux lecteurs et les résultats 
du problème proposé 


/ 1 LA BOÎTE 


A MALICES 

Prenez un programme et 
retirez-en toutes les astuces, 
des plus grossières aux plus 
subtiles. Que reste-t-il ? 

Rien. Dans ce numéro, des 
ficelles pour FX-602 P, C.64, 
Amstrad, MO 5, Dai, TO 7, 
PC-1500, PB-700, Hector 
HRX, X-07, TRS-80 et Apple II. 


6 2 LA RÉCRÉ 


DE LIST 

Exercez votre logique et 
votre ingéniosité pour 
résoudre quelques petits 
problèmes simples en 
apparence. 


Ce numéro contient en 
encart des bulletins 
d'abonnement paginés 11, 
12,77 et 78. 


Index des annonceurs p. 13 


LIST est une publication du == | 
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La loi du 11 mars 1957 n'autorisant, aux termes des alinéas 2 et 3 de 
l'Art. 41, d'une part que «les copies ou reproductions strictement réser: 
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Notre publication contrôle les publicités commer- 
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Bureau de Vérification de la Publicité. Si, malgré 
ces précautions, vous aviez une remarque à faire, 
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Limité par Basic ? 

impatient, lorsqu'un compila- 
teur classique prend 5 mn pour 
compiler 100 lignes ? 

TURBO Pascal a été conçu 
pour vous. 


TURBO PASCAL 
EST UN SYSTÈME COMPLET 


ll comprend un éditeur et un 
un compilateur dans le même 
programme. 

(28 K CPM. 36 K 

sous MS DOS). 


Vous passez de l'un à 
à l'autre par une touche : plus 
besoin de jongler avec disquettes 
ou fichiers. 


LA COMPILATION SE FAIT 
EN MÉMOIRE 


Un compilateur classique utilise des 
fichiers intermédiaires sur disque; 
Jusqu'à 90 * du temps peut être con- 
sacré aux opérations de lecture/ 
écriture sur disque. 

Avec TURBO Pascal, la compilation se 
fait en mémoire en une seule passe : le 
temps de compilation est réduit au 
strict minimum. 

Par exemple, Microcalc, programme 
de démonstration de 1.200 lignes 
fourni avec TURBO Pascalest compilé 
en 30 secondes (à 4 Mhz). 

Si une erreur survient lors de la compi- 
lation, l'emplacement de l'erreur est 
retrouvé dans le code source et le 
mode éditeur activé : corriger un point- 
virgule oublié ne prend que quelques 
secondes. 


L'ÉDITEUR INTÉGRÉ 

EST CONFIGURABLE. 

Vous pouvez redéfinir toutes les com- 
mandes. Il lit les programmes écrits 
avec d'autres traitements de texte. 
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. fonctions AND 


DE NOMBREUSES EXTENSIONS 


vous permettent d'utiliser à fond votre 
ordinateur. 

< appels aux fonctions du DOS 

< opérations sur la mémoire, 


les ports d'entrée/sortie 


OR, XOR, sur 
les entiers 


. type String avec fonctions de traite- 
ment de chaînes 

procédures de gestion de l'écran 

8 fichiers prédéfinis 

modules de recouvrement 
{overlays)permettant d'écrire de très 
grands programmes 

fichiers à accès aléatoire avec 
“seek” 

constantes structurées permettant 
d'initialiser rapidement ensembles 
et tableaux 

identificateurs de 127 caractères 
programmes chaînés avec partage 
des données 

variables absolues placées à 1 
adresse précise en mémoire. 


REVUES... 
“Des performances à faire pâlir" 
«LIST », Nov. 1984 
“TURBO Pascal offre tout ce qu'un uti- 
lisateur de Pascal peut attendre en 
dépassant même largement ses espé- 
rances . « ORDI », Nov. 1984 
“The best cost less" 

«Creative Computing », juillet 1984 
“TURBO Pascal appears to violate the 
laws of thermodynamics 

« SOFTALK », Mars 1984 

“This dynamic new language compiler 

is a “‘VolksPascal”, with most of Pas- 

cal plus a few extras. It introduces a 

new programming environment and 
runs like magic”. 

« PC MAGAZINE », Nov. 1984 


TURBO 87 permet 
d'utiliser le coprocesseur 
8087 sur les machines 16 bits. 


Remboursement possible par retour 
de la disquette non ouverte sous 
15 jours. 


ENVOYEZ-MOI DE SUITE : =) 


O TURBO PASCAL 
625 F + 116,25 F TVA 


O TURBO 87 
1.150 F + 213,90 F TVA 


O JE PRÉFÈRE LE MANUEL ANGLAIS 
© ORDINATEUR : | 
DISQUES 0 31/2" D51/4 D 8" 
SYSTÈME D'EXPLOITATION : 


D MS-DOS O CMP-80 
D PC-DOS CPM 86 
REGLEMENT 


D CHEQUE JOINT 

D CONTRE-REMBT. (+ 50 F) 

+ Remboursement garanti si renvoi de la 
pochette non ouverte sous 15 jours. 

-< Remplissez soigneusement le bon de 
commande 


NOM 
ADRESSE 


TEL 
SIGNATURE 
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UN EXEMPLE 
DE BON ÉDITEUR 


ITE à Particle publié dans 

LIST 6 (page 25), « L’exem- 
ple d’un bonne correction », 
concernant le PC-1251, je tiens 
à vous signaler l’éditeur du New- 
Brain qui me semble encore plus 
performant. 

Il s’agissait pour moi de trans- 
former la ligne 250 IMPT 
(NOMBRE SUIVANT ?”}S, 
en la ligne 250 INPUT(‘PRE- 
MIER NOMBRE ?”)A. 

Si on joue le jeu de ne réécrire 
aucune lettre figurant sur la ligne 
à modifier, cela donne : 7 tou- 
ches pour LIST 250 ; 2 touches 
pour le déplacement du curseur 
sur M et appui sur N ; 3 touches 
pour le déplacement sur T, l’in- 
sertion et l’appui sur U ; 10 tou- 
ches pour le déplacement sur N, 
l'insertion et l'appui sur 
PREMIER - ; 3 touches pour le 
déplacement sur S et l’efface- 
ment répétitif avec Shift flèche 
à droite ; 2 touches pour le 
déplacement du curseur sur S et 
l’appui sur A ; enfin, une tou- 
che de validation par New-Line. 

Au total, 28 touches auront 
été actionnées et la correction 
aura duré 20 secondes. Aucun 
espace n’est à ménager pour les 


GU'EST CE Qui. 
Y Au VOUS 
N'AVEZ T'AMAIS 
VU UN Min 
ORPINATEUR 
GÉANT? € 
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Fraciel 


Ordi 5 


insertions, les compressions de 
ligne se faisant automatique- 
ment. 

Cela étant, LIST a choisi un 
créneau qu’il ne doit surtout pas 
modifier. Votre revue est une 
mine d’or pour tout program- 
meur amateur. Veillez à ce 
qu'elle le reste. 


Michel TRICOCHE 
72 Beaumont-sur-Sarthe 


Les résultats donnés par le 
New-Brain sont en effet 
intéressants. Merci de nous les 
avoir communiqués. 

Un bon éditeur doit permettre 
de corriger facilement et rapide- 
ment une ligne de programme. 
Le seul moyen de le juger est 
d’en faire l'expérience soi- 
même. Reste à trouver des 
«tests d'édition » qui permet- 
traient de porter un premier 
jugement sur l'éditeur de son 
ordinateur. 

Le test proposé dans l’article 
« L’exemple d’une bonne cor- 
rection » est un premier pas. 
D'autres tests (ou idées) pour 
apprécier l'éditeur sont les bien- 
venus. Qu'on se le dise ! 


Écrivez à LIST 
5 place du Colonel Fabien 
75491 Paris Cedex 10 


Festival du Logiciel .............,.,............. 


FERMETURE 
AUTOMATIQUE 


UR le Canon X-07, l’instruc- 
tion OPEN n'’existe pas. Je 
pense que je dois la remplacer 
par INIT. Mais qu’en est-il de 
l’équivalent de CLOSE ? 


Roger NOCETTI 
11 Alzonne 


Librairie Informatique d’Aujourd’hui ............. 
L'Ordinateur Individuel ..... 
Maubert Electronic ......... 


L'ouverture d’un fichier se 

fait bien avec INIT.. sur 
le Canon X-07. Et il n’existe pas 
d’ordre de fermeture de fichier, 
pour la simple raison qu’il n’est 
pas possible d'en ouvrir plu- 
sieurs à la fois. Aussi, un équi- 
valent de CLOSE est-il inutile, 
la fermeture intervenant auto- 
matiquement à la fin de l’exécu- 
tion du programme, ou lors- 
qu’un autre fichier est ouvert à 
l’aide d’une instruction INIT. 


DE MEILLEURES SOLUTIONS 
POUR LES JEUX ET CASSE-TÊTE 


ANS chaque numéro de LIST, vous trouvez l’énoncé de jeux 

et casse-tête informatiques dont la solution paraît dans le 

numéro suivant (dans ce numéro, voir page 82). Mais ce n’est pas 

toujours l’unique solution. Vous êtes nombreux à nous en propo- 

ser d’autres, souvent meilleures. Nous vous soumettons ici celles 

des jeux 10 et 15, parus respectivement dans LIST 4 (page 83) et 
LIST S (page 84). 


L’objet du jeu 10, « Gagner des microsecondes », était d’écrire 
un programme chargé d’initialiser à zéro les 100 éléments d’un 
tableau de façon à ce que son temps d’exécution ne dépasse pas 
0,15 seconde. Cela est possible en « dépliant » la boucle, c’est-à- 
dire en écrivant : 

10 for I=1 to 100 step 2 

20 T(I)}=0 

30 T(I+1)=0 

40 next 1 

dont le temps d’exécution total est de 141500 microsecondes. 

Olivier Martin et Douglas Rutledge, proposent de réduire encore 
ce temps de calcul en dépliant la boucle non pas d’un facteur 2, 
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À VOS CLAVIERSE 


mais d’un facteur plus élevé. Par exemple, avec un pas égal à 4, 
notre programme devient : 

10 for I=1 to 100 step 4 

20 T(I)=0 

30 T(1+1)=0 

40 T(I+2)=0 

50 T(1+3)=0 

60 next I 

Le temps de calcul s’élève alors à : 25 x 850 pour la ligne 10, 
25 x 880 pour la ligne 20, 25 x 1100 pour la ligne 40 et 25 x 
1100 pour la ligne 50. Soit : 21 250 + 22 000 + 27 500 + 27 500 
= 125 750 microsecondes. 

Ainsi, plus la boucle est dépliée, plus le temps de calcul de notre 
programme se réduit. Il faut toutefois noter que le pas de la bou- 
cle doit être un diviseur de sa borne supérieure. Dans le cas qui 
nous intéresse, seuls les pas 1, 2, 4, 5, 10, 20, 25, 50 et 100 sont 
donc possibles. 

Olivier Martin et Douglas Rutledge ont déterminé l’équation du 
ss de calcul de ce programme. Ce temps, en microsecondes, est : 


= (850 X (100/pas)) + (880 X (100/pas)) + (1100 x (pas—1)} 
x en 

Ce qui peut encore s’écrire : T = (100/pas) x (850 + 880 + 
(1100 X pas) — 1100) = 100 x (1100 + (630/pas)). 

La représentation graphique d’une telle équation, où le temps 
est fonction du pas, est une hyperbole qui tend vers une valeur égale 
à 110 000 microsecondes lorsque le pas tend vers l’infini. Toute- 
fois, comme le pas ne peut pas être supérieur à 100, le programme 
le plus court s’exécute, d’après cette équation, en 110630 microse- 
condes. Ce programme est le suivant : 

10 for I=1 to 100 step 100 

20 T()=0 

30 T(I+1)=0 
1010 T(+99)=0 
1020 next I 

Mais dans ce cas, il est possible de supprimer les lignes 10 et 1020, 
puisque la boucle n’est exécutée qu’une fois. Cela permet de gagner 
encore 850 microsecondes, et le temps de calcul passe à 109780 
microsecondes. 

Enfin, une dernière amélioration consiste à supprimer la varia- 
ble I. Le programme suivant : 


10 T(1)=0 
20 T(2)=0 
1000  T(100)=0 


s'exécute en 88000 microsecondes. I] paraît difficile de faire plus 
court, en temps de calcul. 


En revanche, ce temps gagné risque bien d’être perdu par l’écri- 


F 


| 
| 
JEUX 
| PASSIONNE! 


E 
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LA PROGRAMMATION 


Des algorithmes en Pascal 
pour construire des 
programmes en s'appuyant 


réflexion” par Louis Jardonnet 
106 pages - 110,00 FF. 


ture de ce programme. À moins d’avoir prévu un logiciel qui génère 
automatiquement les boucles dépliées… 


Quant au jeu 15, « Une autre fonction aléatoire », il consistait 
à trouver une formule générant un nombre aléatoire compris entre 


A et B, à l’aide de la fonction RANDOM qui retourne un nombre . 


pseudo-aléatoire compris entre 0 et 32767. 

Un petit oubli a fait sauter, dans la première formule qui était 
proposée, la fonction INT. En effet, comme les nombres aléatoi- 
res doivent être entiers, il fallait bien entendu écrire : 

INT ((B-A+1) + RANDOM/32768.0 + A) 

Toutefois, Henri Bourboulon (de Dunkerque), a découvert que 
cette formule n’a pas un comportement satisfaisant. En effet, elle 
fournit des nombres aléatoires qui ne sont pas parfaitement cen- 
trés sur l’intervalle de A à B. Ce défaut de centrage peut être observé 
sur un grand nombre d'essais. Il se situe environ à 0,003 % de la 
valeur moyenne. 

Le défaut de cette formule provient de deux effets qui se com- 
pensent. Le premier, en passant par l’expression (B — A + 1) et la 
division par 32768, étend l’intervalle de A à B en un autre inter- 
valle allant de A à B+1. Le second effet, en prenant systémati- 
quement la partie entière des nombres calculés, a tendance à en 
diminuer la valeur, et donc à ramener l’intervalle des nombres obte- 
nus de À à B. Mais la répartition en est altérée. 

Pour corriger cette erreur, Henri Bourboulon a modifié la for- 
mule. Elle devient : 

ROUND ((B— A) + RANDOM/32767.0 + A) 

où la fonction ROUND prend l’arrondi d’un nombre réel. Ainsi, 
la répartition des nombres s’effectue bien entre A et B, l’arrondi 
permettant de ne pas faire glisser cet intervalle vers des valeurs 
inférieures. 

Les résultats expérimentaux confirment ces faits. Sur un grand 
nombre de tirages (cent millions), la valeur moyenne obtenue avec 
la première formule est égale à 4999,612, alors que la formule de 
Henri Bourboulon donne un meilleur résultat, puisqu'il est égal 
à 4999,763, l'erreur résiduelle provenant sans doute du générateur 
de nombres aléatoires. 


Envoyer ce bon accompagné 
de votre règlement à : 


PSI. DIFFUSION 
B.P.86-77402 
LAGNY/MARNE CEDEX 
Tél. (6) 006.44.35 


sur une classification ve 
logique des jeux Prénom 
de réflexion les plus AGTBSSE 
classiques. 
Code Postal 
"La programmation des jeux de 3 | vite 


Je commande "La programmation des jeux 
de réflexion” et joins un chèque de F 110,00. 
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Edit-Plus 
pour les mordus 
de Basic 


SOSOPFT jance sur le marché 

un nouveau logiciel d’édi- 

tion de programmes, Edit-Plus 

destiné aux possesseurs d’Oric-1 
et d’Atmos. 

Editeur pleine page accompa- 
gné d’un Basic francisé, le nou- 
veau produit de la société fran- 
çaise Isosoft devrait faciliter la 
tâche des « mordus » de la pro- 
grammation Basic en leur per- 
mettant d’écrire en anglais ou en 
français leurs programmes. : 

Le nouveau logiciel numérote 
également automatiquement les 
lignes d’écriture de programmes 
et permet une recherche facile de 
mots ainsi que leur remplace- 
ment éventuel. Le même logiciel 
dispose en outre des fonctions de 
suppression de lignes REM et de 
suppression des espaces super- 
flus dans les lignes de program- 
mes. FR 


Baisse de prix 
chez Ediciel 


DI-LOGO, le Logo de 
Matra/Hachette pour la 
gamme Apple II (voir notre 
essai dans LIST 6) passe de 
1 495 FF (prix public ttc) à 
950 FF. 

Dans le même temps, et tou- 
jours chez Ediciel, le traitement 
de texte Papyrus pour Apple 
passe de 850 à 680 FF. = 


Un nouveau clavier 
pour les TO7 


A société française Peritek 

a annoncé la sortie d’un 
nouveau clavier mécanique des- 
tiné aux micro-ordinateurs TO7 
et TO7-70 de la firme Thomson. 

Caractérisé par une grande 
ergonomie, le nouveau clavier 
devrait être commercialisé à 

. environ 10 000 exemplaires 
durant l’année 1985. Actuelle- 
ment, le parc français de TO7 et 
de TO7-70 s’élèverait à quelque 
70 000 appareils. 

Grâce à une disposition des 
touches identique à celle d’un 
clavier au standard Azerty le 
nouveau produit de la firme 
lyonnaise Peritek évite à son uti- 
lisateur tout effort d’adaptation 
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en lui offrant une sécurité et un 
confort de frappe très nettement 
supérieurs aux claviers d’ori- 
gine.. Le clavier Peritek est 
actuellement disponible au prix 
de 750 FF ttc. 


Le Stratos, 
enfin. 


FFICIEL : le Stratos 

arrive en France. Il y a 

si longtemps que la société bri- 

tannique Oric annonçait un 

débarquement imminent que 

l’on commençait à douter 
sérieusement. 

Le Stratos sera disponible très 
prochainement à un prix voisin 
de 3000FF. Le dernier-né 
d’Oric possède une mémoire 
vive de 64 Ko et fonctionne 
grâce à un microprocesseur 
6502. II peut utiliser les logiciels 
compatibles avec l’Atmos. 

Son système de fonctionne- 
ment est basé sur deux connec- 
teurs de cartouches. L’une des- 
tinée au langage de programma- 
tion, l’autre à une cartouche 
d’application. 

Livrée avec une cartouche 
Basic super étendu, la machine 
pourra fonctionner, entre 
autres, sous Logo et sous Forth. 

= 


Un nouveau 
Muititech 


A PRÈS divers essais (que les 

mauvaises langues quali- 
fient de malheureux), Muititech 
ne se décourage pas et lance sa 
troisième génération d’ordina- 
teurs d'initiation. Principale dif- 
férence avec les modèles précé- 
dents, le MPF 1/88 est destiné 
aux programmeurs déjà 
aguerris. 

Débogueur, assembleur, ges- 
tion des entrées-sorties, sous- 
routines de programmation, le 
nouveau Multitech se veut un 
parfait outil d'apprentissage des 
subtilités que doit connaître un 
programmeur. 

Il dispose en outre d’un mini 
écran de contrôle à cristaux 
liquides (deux lignes de 24 carac- 
tères) en plus du moniteur, de 
4 Koctets de mémoire vive 
extensibles à 24 Ko, et de 16 
Koctets de mémoire morte. M 


UN LIVRE 


La solution RS-232 
Joe Campbell 
Editions Sybex 
Paris, 1984 
Broché, 208 pages 
Prix : 148 FF 


OICI le livre que tout 
informaticien, fût-il 
amateur ou professionnel, 
devrait avoir dans sa bibliothè- 
que, surtout s’il désire, un jour 
ou l’autre, enrichir l’environne- 
ment de son ordinateur de péri- 
phériques connectables à la 
« norme » RS-232. 
Contrairement à ce que le titre 
laisserait supposer, l'ouvrage ne 
se contente pas d’exposer doc- 
tement les fondements théori- 
ques de l’interfaçage série : il 
donne une foule de détails pra- 
tiques sur l’art de la connectique 
RS-232. Or, 
l'avouer, c’est la pierre d’achop- 
pement sur laquelle butent bien 
des utilisateurs de matériel 
informatique, et l’auteur du 
livre a le mérite de montrer que, 


il faut bien 


EE 
LA GAZETTE DE LIST 


si la notion de périphérique 
compatible avec tel ou tel ordi- 
nateur est à prendre avec pru- 
dence, en revanche, l’idée d’in- 
compatibilité, totale ou par- 


-tielle, entre deux appareils à liai- 


son série n’est qu’une idée 
reçue : il y a toujours moyen 
d’arriver à les interfacer. Il suf- 
fit de savoir comment, et l’ou- 
vrage est précisément conçu 
dans cette intention ! 

Après avoir défini la notion 
d'interface série, de son principe 
à la « quincaillerie » (le fameux 
et mystérieux UART), l’auteur 
passe à la pratique, en analysant 
cinq exemples concrets de réali- 


Les anciens numéros 


HET it 


= 


sont disponibles à la 


Librairie 
informatique 
d'Aujourd ul 


253, rue Lecourbe 
75015 PARIS 
Æ& (1)8287288 


(de 9 h à 19 h sauf dimanche: 
métro Convention ou Boucicaut) 
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LA GAZETTE DE LIST! 


sation de cordons reliant un 
ordinateur à un périphérique, 
imprimante et modem. Sur ces 
cinq cas, trois étaient réputés 
« difficiles », voire « impossi- 
bles ». Or, l’auteur prouve le 
contraire, et montre, par la 
même occasion, l’inutilité de l’ac- 
quisition du coûteux cordon 
complet à 25 fils : la plupart du 
temps, trois ou quatre fils suf- 
fisaient, ce qui place la réalisa- 
tion d’un tel cordon à la portée 
de tout amateur. 

Ecrit dans un style agréable et 

humoristique (l’auteur remar- 
que malicieusement que le prix 
de l’ouvrage sera amorti dès la 
confection du premier cor- 
don !), ce livre ne se consulte 
pas, il se Lit : l’analyse des cas 
rebelles prend des allures de 
« thriller » et c’est avec plaisir 
que le lecteur découvre que la 
solution était... élémentaire, 
mon cher Watson ! 
Quant à l'outillage et aux appa- 
reils de mesure, l’auteur montre 
qu’il n’est point besoin de dis- 
poser d’un laboratoire pour 
réussir une connexion, et indi- 
que comment, pour quelques 
francs, il est possible de fabri- 
quer un analyseur de port série 
plus efficace que bien des noti- 
ces d’utilisation. 

Lisez vite ce livre : vous y 
découvrirez le moyen infaillible 
de déterminer le sexe des DTE 
et des DCE, et autres merveilles. 
Cela vaut la peine, non ? 

AM 


Spectrum Plus. 
moins cher 


E constructeur britannique 
Sinclair a décidé de 
procéder à une baisse significa- 
tive du prix de son ZX Spectrum 
Plus. L’appareil sera désormais 
commercialisé à 1660 FF ttc 
contre 2330 FF précédemment, 
ce qui le rend évidemment beau- 
coup plus attractif. 

Autre baisse spectaculaire : 
les cartouches de bande magné- 
tique, dites « microdisquettes », 
qui tournent sur les microdrives 
des Spectrum, Spectrum Plus et 
QL voient leur prix passer de 76 
à 39 FF ttc. Cette chute des prix, 
selon Sinclair, a été rendue pos- 
sible grâce à une forte croissance 
des capacités de production de 
la firme ainsi qu’à de nouvelles 
techniques de fabrication. M 
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UN LIVRE 


cedleinatnan 


Musique sur 
Commodore 64 

James Vogel et Nevin B. 
Scrimshaw 

Editions Cedic-Nathan 
Paris, 1984 

Broché, 160 pages 

Prix : 85 FF 


OICI une adaptation 

française du livre The 
Commodore 64 Music Book 
écrit par les mêmes auteurs, et 
édité aux Etats-Unis. 

Le but de cet ouvrage, tel 
qu’il est annoncé par ses 
auteurs, est d’enseigner aux 
novices en programmation 
comme aux musiciens débutants 
comment tirer parti des 
capacités musicales du C. 64. La 
démarche est donc originale : 
initier à l’informatique par le 
biais de la musique ne se 
pratique pas couramment. 

Cinq chapitres subdivisent 
l’ouvrage. Le premier expose les 
théories de base: qu'est-ce 
qu’un son, une fréquence, une 
hauteur ; forme des ondes 
sonores, enveloppes, filtres, 
modulations et synchronisa- 
tions. Toutes choses connues 
des habitués de musique synthé- 
tique, mais dont la découverte 
sera fort utile aux débutants. Et 
cela d’autant plus que des expli- 
cations claires (assorties de 
courts programmes démonstra- 
tifs) sont fournies pour chacun 
des points abordés. 

Les chapitres suivants entrent 
plus directement dans le vif 
informatique du sujet. Depuis la 
programmation des paramètres 
musicaux « de base » sur le 
C.64 jusqu’au traitement des 
effets sonores dans lesquels cette 


machine est remarquable, les 
explications demeurent claires et 
précises. Remarquons toutefois 
que les carences du Basic 
Commodore, qui oblige à 
programmer la musique à 
grands renforts de POKE et 
autres FOR...NEXT, ‘rendent 
délicate la tâche envisagée par 
les auteurs. Initier à 
l'informatique en commençant 
par ce type d’instructions et en 
poursuivant par les READ, 
DATA et RESTORE, complétés 
de l’usage des tableaux assortis 
d’une pincée de GET, tout ceci 
est peut-être un peu « pointu » 
pour les vrais débutants. Aussi, 
bien que judicieusement conçu, 
l'ouvrage s’adresse plutôt à ceux 
qui ont déjà fait leurs premières 
armes en matière de logique 
informatique. 
L’échelonnement des diffi- 


UN CLUB... UN SALON... 


En Saintonge, 
informatique et téléma- 
tique s’exposent 


Saintes, les 26, 27 et 28 
avril prochain, se tien- 
dra le deuxième Salon de l’infor- 
matique et de la télématique. Il 
est organisé par l’Association 
pour le développement de l’in- 
formatique en Poitou-Charentes 
et s’installera au Parc des Expo- 
sitions de la ville. 
Si vous voulez en savoir da- 
vantage : 
ADICHAP 
Hôtel de ville 
17100 Saintes 
Tél. : (46) 93 34 45 


Belgique : 
un bulletin 
pour le Dai 


UITE au meeting interna- 
tional du Dai, à Nivelles, 
le 20 octobre dernier, où près de 
300 entrées ont été enregistrées, 
les organisateurs ont pris accord 
avec les responsables des diffé- 
rents clubs Dai de Belgique, 
pour créer un bulletin entière- 
ment consacré à cet ordinateur. 
Le bulletin s’appellera DAI- 
clic et sera publié par l’associa- 
tion IDC (International Dai 
Club). 
Les clubs associés (ils sont 


cultés est bien étayé par des 
exemples de programmes de 


plus en plus élaborés. Les 
amateurs de musique seront 
heureux de pouvoir pratiquer la 
modulation en anneau, le 
filtrage ou la synchronisation. 
Tout est prévu d’ailleurs pour 
cela, et les explications sont 
détaillées. Le seul problème 
réside dans l’ensemble des 
connaissances informatiques 
préalables qu’il vaut mieux avoir 
avant de se lancer dans les 
applications proposées. 

C’est donc un livre d’accès 
(relativement !) facile qui 
apportera à son utilisateur les 
connaissances qui pouvaient lui 
manquer en matière de musique 
de synthèse, et qui lui servira à 
progresser dans le domaine de la 
programmation avancée. 

RB 5 


UNE FOIRE... 


actuellement au nombre de 
trois : Carola Dai, Daic et Dai- 
namur) abonneront directement 
leurs membres. Pour plus de 
renseignements, vous pouvez 
contacter : 

Fabrice Duluins 

4 allée Tour Renard 

B-1400 Mivelles 

Marc Vandermeersch 

17 avenue du Vert Bocage 
B-1410 Waterloo 

Christian Poels 

10 rue des Bas-Sarts 

B-4100 Seraing 


Une Foire aux Puces 
dans le Morbihan 


Association pour la Pro- 
motion et la Diffusion 
de l’Informatique organise la 
1<re Foire aux Puces du Centre 
Bretagne. Elle se tiendra à Pon- 
tivy le dimanche 21 avril 1985, 
dans le Château des Ducs de 
Rohan, qui fête cette année son 
500° anniversaire. 

De 10 à 19 heures, on pourra 
échanger, troquer, admirer tout 
matériel informatique (micros, 
jeux vidéo cassettes, logiciels). 
Vous pouvez vous renseigner 
auprès de Brigitte Milou, (97) 
25 34 00. 

APDI 

Centre Informatique de Pontivy 
Place des Ducs de Rohan 
56300 Pontivy = 
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Thomson, l’informatique 
s’inscruste sur le petit écran 


UE nous réserve la dernière 
nouveauté de Thomson, 
enfin disponible et qui fonc- 
tionne à la fois sur MOS et sur 
TO7-70 ? Avec ce module dit 
« d’incrustation », il devient 
possible d’afficher sur un télé- 
viseur les messages de l’ordina- 
teur alors même que se poursuit 
une émission. Il en coûte 
490 FF. 

Le petit boîtier d'extension se 
connecte à l’arrière du MOS. Le 
branchement est donc extrême- 
ment simple, mais si vous pos- 
sédez déjà l'extension pour 
manettes de jeux, dans le cas du 
MO, il vous faudra choisir. 

A la mise sous tension de l’or- 
dinateur, rien ne paraît avoir 
changé. Pour que l’incrustation 
soit effective, il faut positionner 
à 1 le cinquième paramètre de 
SCREEN. C'est grâce à un 
SCREEN 4,0,0,,1 que l’image 
télé nous est apparue, le texte 
venant du MOS étant alors affi- 
ché en surimpression bleue du 
plus bel effet. Et SCREEN 
4,6,6,,1 a fait revenir au mode 
normal. 

Pour une meilleure compré- 
hension, rappelons la significa- 
tion des différents paramètres de 
SCREEN. Dans l’ordre : cou- 
leur de l’écriture, couleur du 
fond, couleur du pourtour, per- 
mutation des couleurs d’écriture 
et de fond (0 ou 1), et incrusta- 
tion (0 ou 1). Les 16 couleurs 
disponibles sont représentées 
par les nombres de 0 à 15. Ainsi, 
le O0 correspond au noir, le 4 au 
bleu, le 6 au bleu clair, le 8 au 
gris, etc. 

Le positionnement à 1 de l’in- 
crustation a pour effet de ren- 


dre « transparents » à l’image 
télé tous les points de l’écran qui 
ont été définis en noir. Le 
SCREEN 4,0,0,,1 s'explique 
donc : le fond et le pourtour 
étant définis noirs, l’image de 
l'émission passe partout sauf à 
l’endroit du texte (bleu). 

Si l’on veut suivre des cours 
d’informatique diffusés par la 
télévision et en même temps les 
pratiquer, il est intéressant de se 
garder quelques lignes pour tra- 
vailler tout en laissant passer 
lPémission sur tout le reste de 
l’écran. Il suffit pour cela d’exé- 
cuter ces quelques lignes de 
Basic : 

10 CONSOLE 0,24 
20 SCREEN 0,0,0,,1 
30 CLS 

40 CONSOLE 19,24 
50 COLOR 4,6 

60 CLS 

Vous pouvez aussi vous amu- 
ser à de petits effets comme, par 
exemple, laisser passer l’image 
uniquement à travers le texte. Et 
vous pouvez aussi, comme le 
suggère le Guide du MOS livré 
avec la machine, « placer des 
moustaches sur le visage de 
votre commentatrice favorite ». 

Et le son dans tout cela ? Dès 
que l’incrustation est demandée, 
le son de la télé passe lui aussi. 
Mais, contrairement à l’image, 
la superposition n’est pas possi- 
ble : les bips du clavier et les 
ordres PLAY deviennent muets. 
C’est dommage. 

Quoi qu’il en soit, ce module 
d’incrustation est une extension 
très originale dont la principale 
(et unique ?) application reste 
pour l'instant les cours d’infor- 
matique de la télévision. CB M 


Graphismes en Kits 
Michel Rousselet 
Editions Techniques et 
Scientifiques Françaises 
Paris, 1984 

Broché, 262 pages 

Prix : 122FF 


Jeux sur VG 5000 Philips 
Benoît Amsler 

Olivier Villemaud 
Éditions Edimicro 

Paris, 1984 

Broché, 214 pages 

Prix : 88 FF 


Le Basic sur le bout des 
doigts 

Herbert Peckham 
Traduit par Léon Collet 
Editions Mac Graw Hill 
Paris, 1984 

Reliure spirale 

Prix : 135 FF 


Pascal pour programmeurs 
Olivier Lecarme 

et Jean-Louis Nebut 
Editions Mac Graw Hill 
Paris, 1985 

Broché, 394 pages 

Prix : 170 FF 


Le langage C 

Brian W. Kernighan 

et Dennis M. Ritchie 

Traduit par Thierry Buffenoir 
Editions Masson 

Paris, 1984 

Broché, 218 pages 

Prix : 140 FF 


UN PETIT TOUR CHEZ LE LIBRAIRE 


Dessiner, peindre... et jouer 
avec Alice 

Louis Gros 

Editions Eyrolles 

Paris, 1984 

Broché, 142 pages 

Prix : 79 FF 


Du Logo pour Apple 
Nicole Bréaud-Pouliguen 
Editions du PSI 

Lagny, 1984 

Broché, 114 pages 

Prix : 80 FF 


Lire Logo 

André Myx 

Editions Cédic-Nathan 
Paris, 1984 

Broché, 110 pages 
Prix : 75 FF 


ORDINATEURS de POCHE et CALCULATRICES 


HEWLETT - PACKARD 


LE" SUPER PRIX DE PRINTEMPS ! “£X | 


ORDINATEURS de POCHE 


HP 41 CV 
HP 41 CX 
HP 71B 


MAUBERT ELECTRONIC 49, bd. St Germain. PARIS 5° TEL. 325.88.80 PLACE ET M° MAUBERT 
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HP 11 HP15 


[FINANCIÈRES 


HP 12 


PERIPHERIQUES et ACCESSOIRES 


LIST - PAGE 17 


DEUX LIVRES 


Clefs pour Visicale 
Jean-Louis Marx 

et Alain Thibault 
Éditions du PSI 

Lagny, 1984 

Reliure spirale, 102 pages 
Prix : 105 FF 


Clefs pour Muiltiplan 
Jean-Louis Marx 

et Alain Thibault 
Éditions du PSI 

Lagny, 1984 

Reliure spirale, 128 pages 
Prix : 105 FF 


N sait bien que l’informa- 
tique individuelle n’a 
vraiment pris son essor que lors- 
que sont apparus des logiciels 
directement utilisables sans 
aucune connaissance en pro- 
grammation. Ou plus exacte- 
ment lorsque Visicalc est né, en 
septembre 1979. S’il n’est plus 
tout à fait aujourd’hui le plus 
répandu, son nom est toujours 
un symbole : celui du Tableur et 
il reste évidemment très 
répandu. Son grand, et heureux, 
rival s’appelle Multiplan. Si Visi- 
calc a surtout été le cheval de 
bataille (et l'entraîneur) d’Ap- 
ple, Multiplan est celui de 
V’IBM-PC. A eux deux, ces pro- 
grammes miracles, feuilles de 
calcul à tout faire, figurent sur 
la majorité des bureaux profes- 
sionnels mais aussi de nombreux 
amateurs « éclairés ». 

Il est certain que la très grande 
majorité de leurs utilisateurs ne 
connaît guère l’informatique. Ce 
qu’ils désirent est très simple : 
un outil performant dont ils ne 
maîtrisent à la rigueur que les 
30 % des performances adaptées 
à leur travail quotidien. Leur 
plus grand besoin est évidem- 
ment celui d’un répertoire 
rapide, de consultation immé- 
diate, écrit avec un grand souci 
pédagogique. Sinon, à quoi bon 
recommencer l'écriture du guide 
officiel ? Certes, quand on voit 
le pavé indigeste et majestueux 
qui accompagne les disquettes de 
Multiplan, on comprend que 
certains reculent devant sa 
consultation et préfèrent même 
payer (ou faire payer par leur 
entreprise) très cher un stage 
d'initiation de deux ou trois 
jours... Certains complètent 
cette démarche par l'achat, par- 
fois justifié, de Volumes spécia- 
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lisés qui donnent des tableaux 
tout prêts, répondant aux 
besoins estimés de telle ou telle 
part du public. 

Quoi qu’il en soit, il reste 
absolument indispensable à tous 
les utilisateurs de Visicalc et/ou 
Multiplan d’avoir constamment, 
à portée de main, un guide de 
taille très raisonnable à consul- 
ter du bout du doigt, avec des 
rubriques claires (une par page 
par exemple pour chaque mot 
clé), de nombreux exemples élé- 
mentaires, etc. Il faut aussi que 
ce manuel contienne quelques 
indications, même succinctes, 
sur des notions complexes 
(insuffisantes pour une maîtrise 
complète), mais assez fournies et 
claires pour qu’on sache ensuite 
aborder les chapitres correspon- 
dants du mode d’emploi sans 
être complètement perdu. Ces 
concepts difficiles paraîtront 
déjà moins hermétiques, si ce 
n’est vaguement familiers. 

Si de plus ce guide est bourré, 
malgré sa taille, de « trucs et 
comment » (jeu de mots autant 
que traduction de « know- 
how » : savoir-faire), nul doute 
qu’on ne se trouve devant un uti- 
litaire, au vrai sens du mot, dont 
la consultation est si facile et si 
payante qu’il devient — je peux 
en témoigner, ayant utilisé le 
second titre pour m'initier à 
Multiplan — indispensable à 
chaque instant. 

Il existe donc deux de ces gui- 
des, dans la série bien connue 
« Clefs pour. », écrits d’après 
la même maquette par deux 
auteurs parfaitement rompus à 
la fois à la vulgarisation — pas 
à la simplification — et aux per- 


S ’il est un matériel qui a su 

se forger rapidement non 
seulement des adeptes, mais 
encore des admirateurs, des 
fans, c’est bien le Macintosh. Il 
aura suffi de quelques mois en 
effet pour que cet ordinateur 
devienne à la mode. Dans cer- 
tains milieux d’ailleurs, ce suc- 
cès ne vas pas sans une pointe 
de snobisme. A en croire plus 
d’un utilisateur, tout ce qui est 
Mac serait par essence irrépro- 
chable. Le fin du fin dans cet 
ordre d’idée consiste à estimer 
que le prix de la machine est 
dérisoire. Et c’est tout juste si 
l’on ne doit pas s’étonner 
qu’IBM ait commis l’erreur de 
ne pas rendre son PC « compa- 
tible Macintosh ». 

Quoi qu’il en soit, le Macin- 
tosh est promis à un bel avenir, 
et l’on peut déjà se demander si 
1985 ne sera pas l’année du 
Mac. Encore que toute prospec- 
tive soit une activité à haut ris- 
que, essayons de voir les tendan- 
ces qui se dégagent concernant 
les logiciels, pour ce petit 
ordinateur. 

Bien entendu, il est hors de 
question d’en dresser un catalo- 
gue complet, mais nous pouvons 
tout de même faire un premier 
tour non sans mettre en garde, 
comme il convient quand on 
rapporte des bruits. Restons en 
effet circonspects : en informa- 
tique, l’expérience montre qu’il 
vaut mieux, surtout au moment 
d’acheter un matériel, jouer les 


formances de ces calques prati- 
quement universels. Jean-Louis 
Marx et Alain Thibault ont su 
dégager de l’utilisation de Visi- 
calc et de Multiplan les instruc- 
tions et manipulations les plus 
courantes, qui couvrent 80 % 
des besoins, et de les classer avec 
efficacité et souplesse. Bien 
qu’ils soient encore tout récents, 
on retrouve déjà ces deux livres 
glissés dans bien des paquets de 
disquettes. On ne prend sûre- 
ment pas un gros risque à leur 
promettre un avenir très sûr, car 
leurs qualités d’écriture ont ren- 


‘contré ici un besoin très évident 


dans le public. Il ne reste qu’à 
attendre d’autres « Clefs 
pour... » : à quand Lotus 1-2-3 
ou Framework, ou des éditions 
adaptées aux petits nouveaux 
Visicalc Advanced Version ? 


AW 


Saint-Thomas, considérer que 
les promesses ne seront pas 
tenues et que les produits 
annoncés ne viendront jamais. 


Cela dit, si la tendance se 
confirme, la diversité et l’origi- 
nalité devraient distinguer les 
nouveaux logiciels du petit 
Apple ; qu’on en juge plutôt. 
Aux jeux rebattus qui tournent 
sur la plupart des ordinateurs, 
plusieurs concepteurs espèrent 
substituer des logiciels de diver- 
tissement destinés à un public 
« plus mûr et plus sérieux ». 
Dans cette optique, deux édi- 
teurs britanniques seraient en 
train de mettre la dernière main 
à des programmes de distraction 
pour hommes (noms de code : 
MacAdam et Mac-Wait) ou de 
préparation des vacances et 
voyages (Mac-Route). Toujours 
en Grande-Bretagne, mais pour 
des fins plus austères, on serait 
sur le point d'annoncer la com- 
mercialisation d’un ensemble de 
trois logiciels intégrés de concep- 
tion révolutionnaire : Mac-1, 
Mac-2 et Mac-3 ; ce serait, et de 
loin, ce qui se fait de plus rapide 
dans la catégorie. 


Chez nous, on paraît spécia- 
lement attentif à l’enseignement 
assisté par ordinateur, mais il ne 
s’agit pas d’apprendre à des 
enfants les tables d’addition ou 
le pluriel des mots composés : 
plusieurs de ces didacticiels 
seraient du niveau de la licence, 
La littérature est à l’honneur, en 


N°8 - AVRIL 85 


particulier celle des humanités 
grecques avec (nous ne citons 
que les deux plus célèbres) 
Andro-Mac (version d’Euripide) 
et Mac-Homère ; plus près de 
nous, le roman français contem- 
porain est également à l’honneur 
avec l’inévitable Mac Orlan. 
Dans les deux premiers cas, le 
logiciel devrait redéfinir en par- 
tie le clavier du Macintosh en 
apportant un jeu de caractères 
helléniques. 

Enfin, nous avons gardé pour 
la bonne bouche un logiciel de 
simulation que nous avons pu 
essayer en avant-première et qui 
nous a fait une forte impression. 
Rien de plus facile que de trans- 
former son Macintosh en une 
jolie frégate et de prendre le 
large. On regrettera seulement 
que l'éditeur n’ait pas prévu une 
version en français (l'original est 
en flamand !}. Destiné principa- 
lement aux marins de plaisance, 
Mac-Row permet, entre autres 
choses, de s’exercer à la pêche à 
la traîne. 


Interface 
série/parallèle 


A société Néol annonce la 
commercialisation d’une 
interface (mémoire-tampon de 
8 Ko en option) permettant de 
relier un périphérique équipé 
d’une liaison parallèle type Cen- 
tronics à la sortie V24 d’un 
ordinateur. 

Sont déjà disponibles une 
interface parallèle graphique 
pour le C.64, une interface 
parallèle pour Apple Ilc et pour 
Atari 600 et 800. Prix avec le 
câble d’entrée : 1365 FF ttc sans 
mémoire-tampon, et 1625 FF ttc 
avec 8 Ko. 

Pour tout 
s'adresser à 
Néol 
4a rue Nationale 
F 67800 Bischheim-Strasbourg 
Tél. : (88) 62 37 52 L_] 


APL 
sur un portable 


renseignement, 


MPÈRE, le dernier cri des 
micro portables japo- 

nais a de quoi tenir le choc : 
64 Koctets de mémoire vive 
extensibles à 512 Ko, 128 Ko de 
mémoire morte, une unité de 
micro-cassette intégrée de 
300 Ko de capacité, plus des dis- 
quettes et plus tard, un disque 
dur. Une chose est certaine, on 
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ne manquera pas de mémoire. 
La principale origiialité de 
l’Ampère ne réside cependant 
pas dans ses capacités mais dans 
son langage. C’est effectivement 
le premier portable à disposer 
d’APL en version standard. 

Selon Sofrémi (Société distri- 
butrice de l’ordinateur), la rai- 
son en est simple : APL est, avec 
ses 40 signes, un des langages de 
programmation les plus simples, 
les plus évidents et également les 
plus compacts. 

De plus, APL ne sera pas le 
seul atout de l’Ampère qui 
devrait prochainement supporter 
LPA, le langage naturel déve- 
loppé par le CEA (Commissariat 
à l'Energie Atomique). L’âge du 
capitaine, les rendez-vous de la 
semaine, LPA permet tout type 
d'interrogation dans le langage 
le plus simple possible, pour peu 
que l'ordinateur ait la réponse en 
mémoire. CL] 


Poignées de jeux 
et Modem pour Alice 


E nouvelles extensions sur 

Alice 90 et Alice 32. Une 

boîte d'extension (250 FF) per- 

met désormais aux amateurs de 

jeux d’arcades de disposer de 
poignées. 

‘À partir du mois de mai 
devraient être aussi disponibles 
un lecteur de disquette 3 pouces 
1/2 (2950 FF) et un Modem 
(1 495 FF), qui permettra de 
connecter Alice à une ligne télé- 
phonique ou à un serveur 
Vidéotex. CL] 


C’est du solide, 
et on le prouve ! 


EPUIS le lancement de sa 

série 10, à la fin de 

1981, Hewlett-Packard insiste à 
juste titre sur la fiabilité et la 
robustesse des calculatrices de 
cette gamme : HP-11C, 12C, 
15C et 16C. Selon le construc- 
teur, le degré de fiabilité de ces 
machines atteint en moyenne, 
actuellement, des résultats 
exceptionnels : 1 panne/50 ans. 
Joignant le geste à la parole, 
Hewlett-Packard offre, à partir 
du 1 mars 198$ cinq ans de 
garantie sur les calculateurs pro- 
grammables de la gamme 10. 
Evidemment, ce n’est pas cin- 
quante ans, mais c’est nettement 
mieux que la plupart des garan- 
ties couvrant les matériels de 
poche. CL] 


X PER 
Gestion de bases de 
connaissance 

Disquettes pour C.64 et 
Apple II 

Edité par Micro Application 
Version pour C.64 : 950 FF 
Version pour Apple II : 
1950 FF 


LE 
foaencts| 
Lévoué®i 


Graphique Exhibitor 

Permet de re-combiner dessins 
ou textes et de les imprimer 
Disquette pour Apple II 

Edité par BIP 

Prix : 439 FF 


Basic Turbo 

Utilitaire d’aide à la 
programmation 

Cassette pour Oric-1 et Atmos 
Edité par Cobra Soft 

Prix : 140 FF 


Kit écran 
Utilitaire d'animation et de 
création d’écrans graphiques 


Supercopy Ecran 
Copies d’écran 
Cassette pour Oric Atmos 


basse résolution et GP 100 A 
Cassette pour Oric-1 et Atmos Edité par ARG Informatique 
Edité par ARG Informatique Prix : 120 FF 


Prix : 120 FF 


| 


INVENTER 
vos 


NES 


= 


"Programmation inventive” par Xavier de la Tullaye 
160 pages - 100,00 FF. 


e mieux utiliser les mots 
de la programmation. 

e mettre au point un 
organigramme. 

e réaliser le programme, de 
son invention à son utilisation. 


Envoyer ce bon accompagné (ASN PSI. DIFFUSION 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


+ 
de votre règlement à : B.P 8677402 a 
: £ LAGNY/MARNE CEDEX  — | 


Tél. (6) 006.44.35 
Nom Prénom | 
| Adresse 
Code Postal Ville 
| Je commande la "Programmation Inventive" et joins un chèque de F 100.00. 


ne À 
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X-07 ET TABLE TRAÇANTE. 


DES COURBES 


\ K 


TRÈS ANGULEUSES 


À l'origine, ce programme était conçu pour 
dessiner des développantes de cercles qui sont 
des courbes très harmonieuses, Mais l'imprimante 
ne trace que des lignes droites. Alors tant pis pour 
les courbes ! On à tiré parti des lignes brisées. 


En exagérant à peine, on peut con- 

sidérer qu’un cercle n’est qu’une 
succession de traits plus ou moins longs. 
C’est tout à fait exact pour les cercles 
que dessine la petite table traçante du 
Canon X-07. Des traits plus ou moins 
longs. C’est ce « plus ou moins » qui 
nous réserve des surprises. 


Ainsi, dans le cas du cercle, si l’on 
s’en tient à 4 traits, on obtient un carré. 
Avec 6 traits, c’est un hexagone, etc. Et 
dans le cas de la développante ? Par 
développante ici, nous entendons la tra- 
jectoire d’un point quelconque d’une 
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roue qui tourne autour d’une autre. Eh 
bien, avec les développantes, on obtient 
des graphismes inattendus. Je n’en dis 
pas plus, car l’utilisation du programme 
est suffisamment éloquente. Un petit 
avertissement cependant : dès le premier 
jour, j’ai usé quelques mètres de papier 
et quelques stylos. 


Laisser faire 


le hasard 


Vous trouverez, page suivante, le 
mode d’emploi du programme. Quand 
vous aurez obtenu un dessin, sachez que 
vous pouvez en faire tracer un autre 
concentrique au premier, puis un troi- 
sième, etc. 


1e 


Principales variables utilisées 
B=C/D Rapport des rayons de CI et de 


C2 

N Nombre de tours de C1 néces- 
saire pour fermer la courbe 

F Finesse du tracé, nombre de 
traits par tour de C1 (# de 0) 

ii Nombre total de traits = F x 
N 

RI Somme des rayons de CI et C2 

R2 Distance du centre de C2 au 
point M 

R Somme des valeurs absolues de 
RI et R2 (< 240) 

E Couleur (E = E MOD 4, pour 
les étourdis) 

A$ Inkey$, boucle d’attente 

P 3.1415926535898 x 2 

X, Y Coordonnées successives du 
tracé 

A Compteur de boucle (angle de 
rotation de RI) 

K Coefficient : lorsque RI tourne 


de A, R2 tourne de K x À — 
P/2 
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18008 CLEAR 1@G:DEFSTR Z:2- 

BGIG LPRINT CHR$C18) 

@B15 CLS :INPUT' Rapport des 
C="3CIIF INTCCD CC THEN 

19817 INPUT" D="3D:IE 

J<> AN THEN 108817 

19820 B=C/D':K=1+B:N=u 


0925 NEN+i:IF INTCNXB) © 
THEN i0@75 

19932 INPUT" Finesse"3Fiir 
52 

BASS TTENXF 

1b@4ag NPUT”" RI"5RI 


I 
18058 INPUT R2" 3;R2 
10055 R=ABSCRIJ+ABSCR2) 
it 
I 
Œ 


“N° 10080 BEEP 2,2:A$=INKEYS:IF A$="" 


THEN 1 
0880 ELSE IF A$OCHR$S(13) THEN 12815 


cercles C/D 10085 PRIMT "':LPRINT "C'+STRS(E) 

188135 19030 P=2X3,1415926535898 

D=8 OR INTCD 1@108 IF 2="N" THEN LPRINT "R240,"STRS(- 
RIDILPRINT "I" 
18118 LPRINT "M'4STRSCRI-R2)+", 0" 

*xB AND N < D 18158 FORA=Q TO NXP+P/F/2 STEP P/F 
18178 X=RIXCOSCA)+R2XCOS(P/2-KXA) 

F=d THEN 194 10189 Y=<RIXSINCAD-R2XSINCP/2-KXA) 


18198 LPRINT 
18208 NEXT 
1820S CLS:PRINT''Dessin concentrique OÙ 
I = 0 NON = N' 


"D'+STRÉSCX)+", "+STRECY) 


10206 Z2=INKEY$S:IF 2@'"0" AND 2C'"N" THEN 
18066 IF R>24Q THEN 10840 12206 
1487Q INPUT" Couleur '"3E:E=EMOD4 19218 IF 28 = "N'"' THEN LPRINT ‘"M-249,"+ST 
180/5 CLS'IPRINT "C/Di"C"/UD," FEUFURI=UR R$SC-R):GOTO 12210 
ls "R2="R2'TT=UTIT 


19277 PRINT 


Des courbes très anguleuses 
Programme pour X-07 +:table traçante 
Auteur Rémi Ducros HAE 
Copyright LIST et l’auteur 


Laissez faire votre imagination ou le 
hasard. Vous pouvez aussi, en cours de 
tracé, changer de couleur. N’hésitez 
pas : cela peut être d’un bel effet. Il suf- 
fit d’appuyer, pendant que l’impri- 
mante dessine, sur le deuxième bouton 
blanc en partant de la droite (il est sur- 
monté par 4 traits). 


Vous avez enfin la faculté d’appuyer 
sur la touche Break de votre Canon et 
de laisser là une œuvre inachevée. Le 
programme boucle sur lui-même en con- 
servant ceux des paramètres qui ne 
changent pas d’un dessin à l’autre. 
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"OK=RETURN NON=<AUTRE" ; 


12220 GOTO 12215 


Utilisation du programme 


Rentrée des paramètres. 
. Rapport des deux cercles C/D. C et D doivent être des nombres entiers positifs ou 
négatifs (D +0). Ce rapport détermine le nombre de tours effectués par les deux roues. 
La ligne 10025 calcule N, le nombre de tours de C1. 
e Le paramètre F, comme Finesse, fixe le nombre de traits à tirer par tour. La durée 
du dessin dépend donc directement de ce nombre. Par ailleurs, plus il est grand, plus 
la courbe est fine. 
. RI est la somme des rayons des deux roues CI et C2. 
e R2 est la distance du centre de la roue C2 au point M. La somme de la valeur abso- 
lue de RI et de la valeur absolue de R2 doit être inférieure à 240, 480 étant la largeur 
du papier en unités graphiques. R1 et R2 peuvent être négatifs. 
e C, enfin, désigne la couleur du tracé : on a le choix entre les quatre couleurs 
disponibles. 


Le programme affiche ensuite les paramètres entrés et le nombre total de traits qui 


composeront la figure. La durée du tracé est évidemment fonction de ce nombre (il faut 
compter environ un à deux segments de droite à la seconde). 


Après le Beep de la ligne 10080, la machine attend soit l'annulation (on appuie sur 
une touche différente de RETURN), soit votre feu vert : une pression sur RETURN 
et le tracé commence. 


Un problème qui n'est pas 
sans rappeler celui de la lune 
tournant autour de la terre 
qui tourne autour du soleil. 
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BASIC. 


UNE MANIÈRE 
D'ÊTRE RÉCURSIF 


ÊME avec un Basic classique comme celui de 


l'Oric, il est possible de concevoir des 
fonctions récursives. Elles n’utilisent pas 
d'instructions spécifiques, mais font appel à une 
pile. Une technique aisément gérée par le Basic. 


Commençons par une définition : 

la récursivité est le procédé qui 
définit une fonction ou un objet par une 
référence à elle ou à lui-même. 


Bien que peu utilisée par les program- 
meurs, la récursivité s'emploie de 
manière naturelle. Il suffit, pour s’en 
convaincre, d’observer le mécanisme de 
l’exécution des sous-programmes par le 
compilateur Basic. Un sous-programme 
peut en appeler un autre qui en appel- 
lera un autre, etc. Le Basic doit alors se 
souvenir du retour et surtout ne pas se 
tromper pour chacun d’eux. Par exem- 
ple : ° 

t 
O0 PRINT ‘‘appels sous/programmes”? 

10 GOSUB 100 

20 PRINT ‘‘fin programme”” 

30 END 

100 PRINT ‘‘ss/prog 100” 
110 GOSUB 1000 
120 PRINT ‘‘fin ss/prog 100°° 
130 RETURN 
1000 PRINT ‘‘ss/prog 1000’ 
1010 RETURN 
En Basic, nous utilisons l’appel à un 


sous-programme par GOSUB. C’est fonction récursive en pleine action 
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encore lui qui fera l’appel de fonction. 
Ce mécanisme est profondément récur- 
sif. Essayez : 
0 REM recursivite de GOSUB 
10 NBRE=9 
20 GOSUB 100 
30 END 
100 REM 5s/prog recursif 
110 J=1+1 :PRINT “CL 
120 IF I NBRE THEN GOSUB 100 
130 PRINT ‘‘}”I; :1=1-1 
140 RETURN 
La récursivité a ses règles. La pre- 
mière à retenir est la suivante : le nom- 
bre d’appels d’une fonction à elle-même 
doit être fini pour que le programme 
puisse se terminer. Dans le cas d’un 
GOSUB qui s'appelle lui-même, ce 
nombre peut aller jusqu’à 24 (chacun 
peut mesurer, sur sa propre machine, la 
taille de la pile des retours de GOSUB). 


Des retours 


délicats 


Si le compilateur utilise la récursivité 


- pour son propre usage, celle des pro- 


grammes n’est pas assurée. En particu- 
lier, l’environnement des sous- 
programmes (les valeurs des variables) 
n’est pas conservé pour le retour. Seule 
l’adresse de retour du GOSUB est 
conservée. 


La principale difficulté dans la pro- 
grammation en Basic sera cette conser- 
vation de l’environnement nécessaire au 
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La fonction fractale 
Programme pour Oric-1 
Auteur Max Hagenburger 

Copyright LIST et l’auteur 


0 REM FRACTALE la fonction recursive NE 
10 GOSUB 100 FR 
5 LH lé DESSIN THEN 20 à | 7 ” 
_ LS ù 
50 GOSUS 200 :REM dessin AN LA 
60 GOSUB 300 :REM FRACTALE SES PS A LR RL LS 
70 GOSUB 800 :RETURN RS NA 7 
a isations du NN: 2" 
110 GOSUB 700 {\ e ps” 


120 DIM ALEA(19) 

130 PRINT “Fonction FRACTALE recursiv 
ite du" 

140 PRINT “ fractionnement aleatoire 
(exemple: 0)" 


150 PROF$="0" 500 
190 RETURN :REM ----- 510 
200 REM debut un dessin 520 
210 PROF=VAL(PROFS) 9530 
220 X1=10 :Y1=130 540 
230 X2=220 :Y2=145 550 
240 X3=120 :Y3=25 560 
250 FOR 1=0 TO 19 565 
260 ALEACI)=RND(1) 570 
270 NEXT 575 
290 RETURN :REM ----- 580 
300 REM FRACTALE (recursive) 585 
310 IF PROF=0 THEN GOSUB 400 :RETURN 590 
320 PiL=PiL+i 600 
330 GOSUB 500 :REM empile et segmente 610 
340 X1=X1CP1L):YIi=Y1i(PIL) :X2=X4(P1L): 620 
| Y2=Y4{P1L) :X3=Xé(PIL) :Y3=Yé(PIL) 630 
: 345 PROF=PROF(PIL)-1 :GOSUB 300 640 
350 X1=X2(P1IL) :Y1=Y2€P1L) :X2=XS(PIL): 650 


660 
670 
690 
700 
710 
790 
800 
810 


Y2=Y5S(P1L) :X3=X4(P1L) :Y3=Y4(PIL) 

355 PROF=PROF(PIL)-1 :GOSUB 300 
360 X1=X3(P1L) :Y1=Y3{P1L) :X2=Xé(P1L): 

Y2=Y6(PIL) :X3=XS(P1L) :Y3=Y5(P1L) 

365 PROF=PROF(PIL)-1 :GOSUB 300 
370 X1=X4(P1L) :Y1=Y4(PIL) :X2=X5(P1L): 

Y2=YS5(PIL) :X3=X6(P1L) :Y3=Yé(P1L) 

375 PROF=PROF(PIL)-1 :GOSUB 300 


L'exécution du programme 


REM empile et segmente 
PROF(P1L)=PROF 
X1CP1L)=X1:YICPIL)=YI 
X2(P1L)=X2:Y2(P1L)=Y2 
X3(P1L)=X3:Y3(PIL)=Y3 

REM milieux des 3 cotés 

XA=X1 :YA=Y1:XB=X2:YB=Y2:60SUB 600 
X4CP1L)=XM:Y4CPI1L)=YM 
XA=X2:YA=Y2:XB=X3:YB=Y3:G6G0SUB 600 
XSCPIL)=XM:YS(PI1L)=YM 

XA=X3 :YA=Y3:XB=X 1 :YB=Y1:GOSUB 600 
X6{P1L)=XM:Y6é(P1L)=YM 

RETURN :REM 
REM segmentation 
L=ABS(XA-XB)+ABS(YA-YB) 
K=(XA+XB) x2+YA+YB 
DIST=(CALEACK-INT(K/20)#20)-,5)/5 
XM=INT(DIST#L+(XA+XB)/2) 
K=(YA+YB) #2+XA+XB 
DIST=(ALEACK-INT(K/20)#20)-,5)/5 
YM=INT(DIST#xL+(YA+YB)/2) 

RETURN :REM 
REM efface ecran (/ordinateur) 
CLS :PAPER O:INK 7: HIRES 
RETURN :REM 
REM fin un ordre 
PRINT CHR$(7) ; 


380 PiL=PiL-i 820 PRINT "Profondeur de 0 a 6 ou ‘F’ 
390 RETURN :REM ----- in ?"; 
400 REM trace du triangle (/ordinat.) 830 GET PROF$ :1IF PROF$<{"0" OR PROF$) 
410 IF X2<>X1 OR Y2<)>Yi THEN CURSET X “é" AND PROF$<)"F" THEN 830 
| 1,Y1,1 :DRAW X2-X1,Y2-Y1,1 840 DESSIN=(PROFS<)>"F") 
| 420 IF X3<3X2 OR Y3()Y2 THEN CURSET X 850 IF DESSIN THEN GOSUB 700 :PRINT P 
| 2,Y2,1 :DRAW X3-X2,Y3-Y2,1 ROF$ 
430 IF X1<2X3 OR Y1<)2Y3 THEN CURSET X 890 RETURN :REM ----- 
3,Y3,1 :DRAW X1-X3,Y1-Y3,1 900 PRINT :PRINT “Fin du programme"; 


490 RETURN :REM 990 
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déroulement des sous-programmes ou 
des fonctions. Prenons par exemple, 
une fonction « milieu » qui coupe un 
segment en deux, coupe alors chacun 
des segments obtenus, et continue ainsi. 
Cette fonction doit pouvoir conserver 
les extrémités du segment et le nombre 
NBRE de fois qu’elle s’appelle elle- 
même. NBRE détermine donc le nom- 
bre de découpages et diminue à chaque 
appel. 


Dès le début, 
prévoir la sortie 


Deuxième règle à retenir : il faut trou- 
ver, dès le début, le cas qui permet une 
action directe, sans faire appel au sous- 
programme. Dans notre exemple, cela 
arrive si l’on ne coupe plus le segment, 
si NBRE=0 (ligne 110) : 

100 REM X2 ‘‘milieu””’ de X1, X3 

110 IF NBRE= 0 THEN GOSUB 200 : 
RETURN 

140 X2=(X1+X3)/2 

150 X1=XI1 :X3=X2 :NBRE=NBRE-1 
:GOSUB 100 

160 X1= X2 :X3 = X3 :NBRE=NBRE- 1 
:GOSUB 100 

190 RETURN 

200 REM tracé graphique 


Les variables X1, X2, X3 ou NBRE 
sont modifiées par chaque appel de 
GOSUB, et n’auront donc plus de sens 
au retour, pour la suite. Il faut alors 
ajouter une séquence de conservation 
des valeurs pour chaque GOSUB 100. 


CHABRIER 
AU TAB ! 


COMMENT 
re ds 
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D'un Basic à l’autre 

Ce programme est écrit pour Oric-1. 
Sur l’Atmos, les tests sur les coordonnées 
avant CURSET et DRAW ne sont pas 
nécessaires. 

Pour l'Apple, par exemple, il faut rem- 
placer les lignes 410, 420, 430 et 710 par : 
410 HPLOT X1,Y1 TO X2,Y2 TO 

X3,Y3 TO XI1,Y1 


710 HGR : HOME : VTAB 22 : 
HCOLOR = 7 


C’est le procédé d’empilement : 
100 REM ‘‘milieu”’ de X1,X3 
110 IF NBRE =0 THEN GOSUB 200 
:RETURN 
120 PIL=PIL+1 
130 XI(PIL)=X1 :X3(P1L)= X3 
:NBRE(P1L)=NBRE 
140 X2(P1L) =(X1+X3)/2 
150 X1=X1(PIL) :X3= X2(PIL) 
:NBRE = NBRE(PI1L) — 1 :GOSUB 
100 
160 X1=X2(PIL) :X3=X3(PIL) 
:NBRE = NBRE(P1L) — 1 :GOSUB 
100 
170 PIiL=PIL-1 
190 RETURN 
Une pile est une mémoire fonction- 
nant d’après le principe dernier entré- 
premier sorti : quand un élément entre 
dans la pile, il prend la place du « som- 
met » de pile (P1L, P-un-L), immédia- 
tement après les éléments déjà entrés. 
L'élément sortant est le sommet de pile. 


Pour illustrer la technique récursive, 
nous allons étudier la fonction FRAC- 
TALE utilisée par exemple dans le des- 
sin de relief montagneux, notament 
pour des décors de films. 


Le principe topographique de cette 
fonction consiste à approcher n’importe 
quelle forme (une montagne, par exem- 
ple) par un assemblage de formes géo- 
métriques (des triangles). La précision 
est directement déterminée par le nom- 
bre de découpages, c’est-à-dire la 
profondeur. 


A l'inverse, un assemblage de trian- 
gles recrée une montagne avec impres- 
sion de relief. Le découpage se fait par 
le fractionnement aléatoire d’un trian- 
gle en plusieurs autres, chacun d’eux 
étant à nouveau découpé, etc. 


Dans le programme, la fonction 
récursive (GOSUB 300) contient sa pro- 
pre structure, celle de s’appeler elle- 
même un nombre variable de fois, sui- 
vant la valeur de la profondeur 
(PROFS). 


Les valeurs X et Y du début du des- 
sin déterminent la dimension de la mon- 
tagne. Le tablear ALEA contient des 
valeurs données au hasard et utilisées 
pour le calcul de la segmentation. P1L 
est le sommet de la pile. Dans la fonc- 
tion empilement, chaque côté d’un 
triarigle est segmenté. On obtient ainsi 
quatre nouveaux triangles qui vont donc 
appeler quatre fois la fonction FRAC- 
TALE. La segmentation se calcule avec 
un facteur de distorsion aléatoire (+ ou 
— 6.1). 

Le programme présenté est écrit sur 
Oric, mais il est facilement adaptable à 
d’autres machines. Quant à la fonction 
FRACTALE, elle n’est qu’un des nom- 
breux exemples utilisant la jvité. 


A = ARC Sin (siN1 
Sin d + COS | Cod 
cos P) =.,E -xfA +x 
Q-E-Y)+x20-E 


1 -Y-YÉ -Y) 


a 
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5 


E Basic structuré : on. en parle de plus en plus 
comme d’un langage d’avénir, Voyons sur 
quelques exemples concrets les principaux 
ayantages qu'apportent les versions structurées 


du « vieux » Basic. 


L'apparition des machines MSX 

munies du Basic standard Micro- 
soft amène l’utilisateur de micro- 
ordinateurs à se demander si le langage 
Basic ne va pas ainsi se trouver figé pour 
longtemps dans une version somme 
toute proche de celle des années 70. 
Dans le même temps, on commence à 
voir apparaître sur quelques machines 
des Basic plus puissants : les Basic dits 
« structurés ». 


: Rien que des 


avantages 


Première constatation : qui peut le 
plus peut le moins. Dans l’ensemble, le 
Basic structuré reste compatible avec le 
Basic standard. Autrement dit, il est 


_presque toujours possible de faire fonc- 


tionner avec un Basic structuré un pro- 
gramme écrit en Basic standard, Reste 
donc le « plus ». Nous allons voir jus- 
tement quelques-uns des avantages 
qu’un Basic structuré apporte à 
lPutilisateur. 


Qui n’a pas, un jour, recopié un pro- 
gramme paru dans une revue en prenant 
bien soin de n’y rien changer, et cela de 
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peur de le voir mal fonctionner ? Cette 
crainte, le plus souvent justifiée, est due 
au fait que le mode de fonctionnement 
du programme est loin d’être évident : 
une lecture, même très attentive, de la 
liste ne suffit pas. Il faut, pour bien 
appréhender le fonctionnement du pro- 
gramme, plusieurs heures de travail 
assidu. Mais d’où peut provenir cette 
difficulté de compréhension ? On évo- 
quera, entre autres raisons : 

e l’absence de documentation ; par 
manque de place ou de temps, on a 
publié un programme sans REM : 

e l’absence d’organigramme (mais dès 
qu’un programme devient long, qui le 
dessine encore ?) ; 


« ET QUE JE NE Vous Vois Paus 


a oW 
TRAÏNER DANS MES PRoGRANNEs! © ai 


e la présence de GOSUB conduisant à 
des sous-programmes dont on ne con- 
naît pas la fonction, ce qui rejoint le 
premier point ; 

e plus grave : la présence de GOTO 
dont le débutant à trop tendance à 
user ! Cet ordre déroute le flux normal 
du programme, le rend plus difficile à 
comprendre. À une ligne donnée (sur- 
tout si plusieurs GOTO y conduisent), 
on peut très bien ne plus savoir du tout 
quel est l’état des variables, où elles ont 
été initialisées, modifiées, etc. ; 

. enfin, il y a les astuces de program- 
mation qu’on ne doit employer qu’à 
bon escient : si elles permettent d’écrire 
un programme plus court, plus rapide 
à l’exécution, elles nuisent à sa clarté, 
le rendent difficile (ou impossible) à lire 
à tout autre que l’auteur, et même à 
celui-ci quelques mois plus tard ! 


Ce dernier point pose le problème de 
la maintenance des programmes, pro- 
blème assez souvent mineur pour l’ama- 
teur, mais d’une importance cruciale 
pour les entreprises ou les administra- 
tions susceptibles de changer de maté- 
riel.. ou de programmeurs. Il a été en 
partie résolu par l’apparition de la 


TRÈS BIEN. ON ON V4 ALLER Voir 
EST 1 - AILLEURS … 
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LANGAGE 


« programmation structurée » et du 
langage Pascal qui en fait grand usage. 

Jusqu’à ces dernières années, l’ama- 
teur désirant programmer « mieux » 
avait évidemment la solution de se met- 
tre au Pascal, quand ce langage existait 
sur son ordinateur. La situation est en 
train de changer avec l’apparition des 
Basic structurés qui, comme leur nom 
l'indique, permettent la programmation 
structurée, mais n’en sont pas moins des 
langages interprétés et, par conséquent, 
plus souple d’emploi que Pascal (géné- 
ralement compilé). 


L'essentiel : 


les boucles 


Dans ces Basic, le programme sera 
constitué d’une suite d’appels à des 
modules, chaque module ayant un seul 
point d’entrée et un seul point de sortie 
(ce qui facilite énormément la compré- 
hension du programme). Avant de voir 
ce que sont ces modules, disons qu’ils 
sont construits exclusivement avec des 
instructions séquentielles, comme en 
Basic standard, avec les structures de 
test IF... THEN... ELSE, et surtout 
avec les boucles (structures « itérati- 
ves » pour faire savant) : REPEAT... 
UNTIL condition et WHILE condition 
DO... WEND. 


Les organigrammes correspondant à 
ces trois structures ont été reproduits ci- 
contre. On remarquera en passant que 
la classique boucle FOR...NEXT (qui 
existe aussi en Basic structuré) n’est 
qu’un cas particulier de la boucle 
REPEAT... UNTIL. Selon leur degré 
de complexité, les Basic structurés pos- 
sèdent ou non d’autres structures faci- 
litant la programmation, comme les 
tests multiples (IF... ELSIF... ELSIF... 
ELSE... ENDIF) ou la structure « cas » 
du Pascal : CASE OF... WHEN... 
WHEN... OTHERWISE... ENDCASE. 


A titre d’exemples, on trouvera (listes 
n® Î et 2) deux versions d’un court 
programme écrit dans le même Basic. Il 
s’agit d’un programme très classique 
dans lequel on doit deviner le nombre 
tenu secret par l’ordinateur. Seules ins- 
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18 
28 
30 
40 
58 
6@ 
78 
80 
9e 
100 
118 
128 
138 
140 
150 
160 
178 
180 
190 


CLS :SUP=99:INF:0 
NOMBRE=INT(C12B8XRND(1)) 
INPUT'"Uotre choiïix:"3Xx 
IF X<=NOMBRE GOTO 90 
PRINT"Trop grand 92" 
SUP=X MIN SUP 
PRINT'Entre "; 
GOTO 38 
IF X=NOMBRE GOTO 
PRINT'"Trop petit 
INF=X MAX INF 
PRINT'Entre "; 
GOTO 38 
PRINT'Bravo 9" 


INF; et “;SUP 


140 
‘A 
INF 3° 


et ‘";SUP 


PRINT'VUoulez vous rejouer CO/-N)7" 
INKEY R$ 

IF R$C "0" AND R$O'"'N" GOTO 160 
IF R$="D" GOTO 18 

END 


IF... THEN...ELSE 


REPEAT... UNTIL condition 


lraite ce qu'est 
après ELSE 


Foite æ quest 
epres TUEN 


Foile ce quiest 
après REPENT 


Halle cæ qui est 
entre 00 et WEND 


saut derriere 


WEND WHILE condition DO...WEND 
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a ER 


Un court programme 
et la courbe 


Liste n°2 . 
‘Même jeu, mais écrit en 120 
Basic structuré : plus de 138 
:GOTO ni de GOSUB jan 
Rhin 150 
1@ REPEAT 168 ENDPROC 
20 CLS : SUP=99 : INF =g a 
3a NOMBRE=INTCIBOXRNDC1)) 190 
48 : REPEAT 
58 INPUT "Votre choix: ;x + SR 
6 IF X>NOMBRE DO 

70 : PRINT"Trop grand 2" 

88 SUP=X MIN SUP 

38 PRINT'Entre "3;INF3;" et ";SUP 

188 : ELSIF X<NOMBRE DO 

118 PRINT'"'Trop petit 9" 

12@ INF=X MAX INF 

130 PRINT'Entre "3;INF;" et ";SUP 

148 : ENDIF 

150 UNTIL X=NOMBRE 

169 : PRINT'Bravo 9" 

178 PRINT'"Uoulez vous rejouer (O/N)7" 

18Q : REPEAT 

138 : INKEY R$ 

200 UNTIL R$="O" OR R$="N" 

210 UNTIL R$="N" 

22@ END 


tructions qui ne soient pas très couran- 
tes : A MAX B donne le maximum d’A 
et B, À MIN B retourne le minimum. 
A part ces deux exceptions, la première 
version ne comporte que des instruc- 
tions standard. 

Dans la seconde version, qui est struc- 
turée, on notera l’absence de tout bran- 
chement par GOTO ou GOSUB. L’in- 
dentation des lignes, d’autre part, fait 
ressortir l’organisation du programme. 

Enfin, la construction modulaire est 
- assurée par la présence des procédures 
et des fonctions qui généralisent respec- 
tivement les GOSUB et les DEF FN du 
Basic standard. On peut leur donner un 
nom (PROC ‘Trace le graphe” est bien 
plus parlant que GOSUB 1000). A titre 
d’exemple, on a reproduit dans l’enca- 
dré ci-contre le début d’un programme 
traçant une courbe définie par ses équa- 
tions paramétriques X(T) et Y(T). 
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MODE GR 
FOR I=1 


grap 


NEXT I 
MODE TN 
END 


Même sans explications supplémen- 
taires, le caractère modulaire du pro- 
gramme et les grandes lignes de son 
fonctionnement apparaissent clairement 
dès le début de la liste. Mais les procé- 
dures et les fonctions ont aussi un 
énorme avantage sur les GOSUB et sur 


10 PROC““‘Initialisation’? 

20 REPEAT 

30 : PROC"‘Titre’? 

40 : PROC‘‘Entre fonctions’? 
50 : REPEAT 

60 : PROC“Titre’? 

70 : PROC‘‘Affiche fonc- 


tions’? 
80 : PROC‘‘Entre bornes’? 
90 : PROC‘‘Calculs’? 
100 : PROC‘‘Dessine’? 
110 : PROC‘“‘Indications’” 
120 : UNTIL FN‘“Encore?” — 


pr 


130 UNTIL 0 


TO 30 
: PROC"Carre"(249,-249,1/10,1+5xI) 


REM XX XII OREE IE AK HORIOOK AIO OK 
DEF PROC"Carre"CX,Y,A,D) 

LOCAL DX,DY 

DX=DXCOSCA) :DY=DXSINCA) 

MOVE X+DX%, Y+DY 

PROC"Ligne"(-DY, DX) 
PROC"Ligne"(C-DX,-DY) 

PROC"Ligne"( DY,-DXx) 

PROC"Ligne"( DX, DY) 


REM XX HO OO OI OI 
DEF PROC'"Ligne"(CA,B) 
LINE X+A,Y+B 


REM  XXX HR HRK RHIN KO HONOR OR 


FN : elles permettent le passage de para- 
mètres entre le programme principal et 
le sous-programme (voir liste n° 3). La 
procédure définie à la ligne 80 permet 
de tracer un carré centré en (X,Y) et 
ayant l’une de ses diagonales (de demi- 
longueur D) faisant l’angle A avec l’axe 
des X. Lors de l’appel de cette procé- 
dure, à la ligne 30, X prendra automa- 
tiquement la valeur 240, Y prendra la 
valeur —240, A la valeur 1/10 et D la 
valeur 1 + 5+1. Comme A et D augmen- 
tent légèrement avec I, le carré va tour- 
ner sur lui-même tout en s’agrandissant. 


L'intérêt du passage de paramètres est 
qu’il a été possible de mettre au point 
la procédure indépendamment du reste : 
lors de l’écriture du programme princi- 
pal (lignes 10 à 60), on a seulement dû 
se souvenir de l’ordre des paramètres à 
passer à la procédure. Avec un Basic 
standard, il aurait fallu aussi tenir 
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LANGAGE 


_ PASCAL EST CONTA 


compte du nom donné aux paramètres 
et écrire la ligne 30 comme suit : 
30 X=240 : Y= -240 : A=1I/10 : 
D=1+5*]I : GOSUB 80 

De plus, X, Y, À et D sont des varia- 
bles « locales » à la procédure, c’est-à- 
dire qu’elles sont considérées par le 
Basic structuré comme différentes d’au- 
tres variables qui seraient elles aussi 
nommées X, Y, À et D mais qui seraient 
utilisées en dehors de la procédure. 


Pour en avoir la démonstration, il 
suffit de rajouter au programme les 
trois lignes : 

25 X = 500 
35 PRINT X 
95 PRINT X 


La ligne 95 imprimera 240 (valeur de 
X dans la procédure) alors que la ligne 
35 donnera 500 (valeur de X en dehors 
de la procédure, définie ligne 25). Il y 
a donc sauvegarde de la valeur 500 de 
X lors de l’entrée dans la procédure et 
restitution lors du END PROC de la 
ligne 160. Un autre exemple de cette 
notion se trouve à la ligne 180 où l’on 
voit que À est de nouveau utilisé comme 
paramètre. La variable À, angle d’incli- 


naison du carré, utilisé dans PROC 
“Carré”? est sauvée lors de l’entrée dans 
PROC ‘‘Ligne”” et restituée lors du 
END PROC de la ligne 200. Enfin, pour 
des variables utilisées dans une procé- 
dure (ou une fonction) et qui ne seraient 
pas des paramètres, il sera toujours pos- 
sible de les rendre locales grâce à l’ins- 
truction LOCAL (ligne 90). 


Chaque procédure 
fait un tout 


C’est cette notion de variables loca- 
les qui permet, en Basic structuré, de 
mettre au point les procédures et les 
fonctions indépendamment du pro- 
gramme principal, sans risque de 
« télescopage » entre les variables de ce 
programme et celles qui sont utilisées 
dans la procédure ou la fonction. 

Il devient ainsi possible de se consti- 
tuer une bibliothèque de procédures ou 
de fonctions (ré-utilisables dans tout 
programme. Cela dit, certains Basic 


Liste n° 4 


Lu “metre le 
30 : INPUT"a=" 3X$ :X=EUAL CX$) intégrale par la 
40 INPUT "b=" 3 T$:Y=EUAL (TS) méthôde.de 

58 UNTIL XOY Simpse;: 

BB PRINT Intaue lé SENS non ON v:285 

28 END 

RQ REM XXII MOI MO OO OX 


100 
119 
129 
138 
149 
150 
168 
178 
‘80 
198 
2808 
218 : 
228 : 
238 
248 RESULT=S/3 
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N=2:H=fB-A)/2 
R=A:S1=EUALCFS) 


REPEAT 
1 SS=S:IN=2XN :H=H/2 
FOR I=1 TO N STEP 2 


NEXT I 
S4=4xHXxS4 :S=S1+S2+S4 


DEF FN"Simpson"(CA,B,F$) 
LOCAL N,H,%X,S,S1,S2,S4,SS,I 


X=B :S1I=HXCSI+EUALCFS$)):S2=0 
X=A+H:S4=4XHXEUALCF $) :S=:S1+S4 


S1=S1/2:S2-S2/2+S4/4:S4=9 


X=A+IXH:S4=S4+EUALCFS ) 


TIL ABSCS-SS)<.000008081 


structurés sont dotés de ce que l’on . 
appelle le « passage de paramètres par 
référence » qui permet la sortie de plu- 
sieurs résultats d’une procédure ou 
d’une fonction, mais nous n’entrerons 
pas dans les détails. 


Pour terminer, la liste 4 nous montre 
une fonction calculant une intégrale par 
la méthode de Simpson. L'exemple est 
tiré (et adapté sur Sharp MZ 700) de 
l’Introduction à la programmation 
systématique par Niklaus Wirth (le père 
du langage Pascal) publié chez Masson. 
La fonction calcule l'intégrale de F$, 
écrite sous forme de chaîne de caractè- 
res et calculée par EVAL entre les bor- 
nes À et B. On remarquera que toutes 
les variables sont locales et, par consé- 
quent, que la fonction se comporte par 
rapport au programme qui l’appelle 
comme une boîte bien fermée dans 
laquelle on entre A, B, F$ et qui 
retourne l’intégrale. 


Voilà exposées les principales quali- 
tés des Basic structurés. On comprend 
les énormes avantages qu'ils ont sur le 
Basic standard. Bien entendu, presque 
tous les programmes peuvent être écrits 
dans n’importe quel langage, et l’ache- 
teur d’une machine destinée à des jeux 
ou à l’utilisation de programmes tout 
faits n’a pas à se poser la question du 
type de Basic à utiliser : une version 
standard sera tout à fait adaptée à ses 
besoins. Mais, à mon avis, celui qui veut 
faire de sa machine un véritable outil 
d'apprentissage de la programmation 
et, par la suite, de développement intel- 
lectuel, a tout intérêt à choisir le Basic 
structuré. 


Le seul véritable problème est, à 
l’heure actuelle, son manque de diffu- 
sion et le nombre restreint de machines 
permettant de l’utiliser. J'espère, quant 
à moi, que les constructeurs et les con- 
cepteurs de logiciels se rendent compte 
qu’il n’est pas plus difficile de créer un 
Basic structuré qu’un Basic standard. Et 
je ne parle pas en l’air : j’ai moi-même 
écrit plusieurs interpréteurs Basic struc- 
turés sur des ordinateurs Sharp, en 
modifiant des Basic standard. Il est 
grand temps de s’apercevoir qu’il y a 
une demande pour ce genre de langage. 
Le Basic des années 70 a fait son temps. 


_ Bernard KOKANOSKY 
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INÉMA ou ordinateur : même combat ? 
Lorsqu'on y parle d'étoiles, c'est pour un 
combat, des envahisseurs et des soucoupes 
volantes... Moi, qui suis plutôt du genre paisible, 
je vous propose la paix des étoiles, un programme 


bien plus tranquille ! 


S’il vous arrive de rêver parfois 

dans la nuit étoilée, savez-vous 
reconnaître Sirius de Capella, le Tau- 
reau des Gémeaux ? C’est pourtant si 
simple qu’il suffit de lever les yeux. 
dans la bonne direction ! Où ? 
Demandez-le donc au PC-1500. 


Le programme ‘‘tourne”” dans la ver- 
sion de base (1850 octets) du PC-1500. 


GA M'A PRIS SiX MOIS POUR 4Ui 


On a pu choisir les 36 constellations les 
plus intéressantes, celles qui comportent 
au moins une étoile bien brillante ou 
suffisamment isolée. 

Afin de trouver un point de la voûte 
étoilée, on a besoin de deux coordon- 
nées : la direction (Nord ou Sud, Est ou 
Ouest) et la hauteur au-dessus de l’ho- 
rizontale exprimée en degrés. 

Tournez-vous vers le Nord (à déter- 


FAIRE COMPRENDRE LE 


PROGRAMME DE NAVIGARON QUE J'AVAIS ETUPIÉ DANS 
L'OP, MAIS J'AI TOUT DE MEME REUSSi /! 
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miner avec une boussole ou, approxima- 
tivement, sachant que le soleil se lève à 
l'Est et se couche à l'Ouest), on dira que 
vous faites face à ‘‘l’azimut 0°” (ou 
360°, ce qui est la même chose). Si vous 
tournez sur vous-même de, disons 
30 degrés vers la droite (soit un tiers 
d’un quart de tour..….), vous faites face 
à ‘‘l’azimut 30°”. Ainsi, le Nord cor- 
respond au 0 (ou 360), l’Est au 90, le 
Sud au 180 et, enfin, l’Ouest au 270. 


Où donner 


de la tête ? 


Ainsi orienté dans une direction don- 
née, levez le nez de N degrés au-dessus 
de l’horizontale : la hauteur du point du 
ciel que vous fixez est de N degrés. 
L’horizontale correspond à 0° et la ver- 
ticale à 90° (le zénith est au-dessus de 
votre tête). 


Munis d’une bonne paire d’yeux et 
d’un cou suffisamment souple, vous 
voici en mesure de regarder dans le ciel 
une étoile dont vous connaissez les deux 
coordonnées : azimut (direction) et 
hauteur. 


Une dernière chose à préciser : où 
êtes-vous ? Eh oui, l’évidence s’im- 
pose : dans l'hémisphère Nord ou dans 
l'hémisphère Sud, en URSS ou aux 
USA, à un instant donné, les étoiles visi- 
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19: 


20: 


38: 


ag: 


59: 


69: 


?8: 


82: 


120 


LIST 


THHEUBLE 


Li 


"S":CLEAR : 
CSIZE 2:COLOR 
J:LPRINT "TROU 
UEUR D/ETOILES 
CiLF 1:DIM Q$< 
DDKI8: USING "# 
#HH. #4" 
INPUT PLAT EST 
IMEE®, LI1:L=DEG 
Li 
INPUT MN OÙ S? 
LS: IF CS$="N 
MD+CL$="S")<DI 
GOTO 38 
INPUT "LONG. E 
STIMEE?",G1:0G= 
DEG 6G1 
INPUT "E OÙ 07? 
F, G$: IF CG$="9 
MJ+CG$="E"d CDI 
GOTO 58 
IF L$="S'LET L 
si 
IF G$="O"LET G 
=-G 
LPRINT "LATITU 
DE M"iLISLS$;"L 
ONGITUDE ";G]; 
G$:LF 2: INPUT 
“DECALAGE HORA 
IRE?", DO 
:T2TIME :M=INT 
CT/19080): J=- 
INT CT/108)-18 
AM: 1=T-]0000%X 
M-108*%J:1-DEG 
1--D0 
:K=INT CC30.6%xM 
3-32.4):4=-1984 
: IF INT CA/4)= 
A/ALET K=K+1 
:1F M€=2LET K=3 
1XxM-31 
: H9=99.84:HI-D, 
9856164:H2=15. 
n41227 
:FOR Z=1T0 36: 
RESTORE (398+7 
):READ GQ$CB),U 
, D 
: HEHO+HIXCK+J-1] 
D+IXKH2:1F H)36 
ALET H:-H-369 
3: H=H+U: R=H+G 
:Y=ASN CSIN DX 
SIN L+COS Dx 
COS LxCOS B) 
: S“ASN (COS Dx 
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, RU FOND 
ET BIEN, SiRIUS 857 
JUSTE, DERRIÈRE ! 


Tu Vois LE GRAND 


310: 


311 


: DATA 


: DATA 


: DATA 


: DATA 


: DATA 


: DATA 


COS YXSIN B):R 
=CTAN DXxCOS L- 
SIN LXxCOS B)- 
SIN B 


: IF RÇBAAND S<a 


LET S+-S:GOTO 


214 
: 1F RXS<BLET S- 


180+S;:GO0T0 212 


: S=369-S 
IF YD>ALPRINT G 


SCO): USING "## 
HHU:LPRINT DMS 
V5. AU ";sS 


:NEXT Z'REEP S. 


END 

"PEGASE/A 
LPHERATZ', 358, 
29 

"CASSIOPE 
E/SCHEDIR", 350 
> 26 

"BALEINE- 
DEN.KAITOS", 34 
3, -18 
SFL.ERIDA 
N/ACHERNAR", 33 
6, #57 


: DATA "BELIER/H 
ANAL", 328, 23 

: DATA "PERSEE/N 
IRFAK”', 309, 50 

: DATA "TAUREQAU/ 


ALDEBARAN", 291 
+ 16 

"ORION/RI 
GEL", 282, -8 


: DATA "COCHER/C 


APELLA",281, 46 
DATA "CARENE/C 
ANOPUS", 264, -5 
3 


: DATA "GO-CHIEN 


/SIRIUS", 259, 1 
À 
“P eCHTEN 
/PROCYON", 245, 
& 


: DATA "GEMEAUX 


POLLUX", 244, 28 


: DATA "UOILES/S 
UHAIL",223, -43 

: DATA "LION/RÈG 
ULUS", 208, 12 

:DATA "GDE-OURS 
E/DUBHE", 194, 6 
2 

: DATA CROIX DU 


321: 


322: 


323: 


336: 


S/ACRUX", 174, 
-63 


: DATA “UIERGE/S 
PICA',159,-11 
: DATA "BOUVIER- 
ARCTURUS‘. 146, 
19 
: DATA "CENTAURE 
ZRIGIL.KENT'.1 
48, -6] 
DATA "PIE-OURS 
E/KOCHAB", 1237, 
74 
DATA "COUR. BOR 
. ALPHECCA", 12 
6, 27 
DATA "SCORPION 
ZANTARES*, 112, 
-26 
: DATA “OPHIUCUS 
/RASALHAG. *, 96 
, 13 
5: DATA "LYRE-UEG 
A", 81, 35 
5: DATA “SAEITTA! 
RE/NUNK I", 26, - 
26 
-DATA "AIGLE/AL 
TAIR", 63, 9 
: DATA ‘PAON/PEA 
COCK*, 54, -57 
: DATA "CYENE/DE 
NEB", 54, 45 
: DATA "POIS.AUS 
/FOMALHAUT', 16 
, 29 
:PATA “PLEIADES 
!, 304, 23 
2:DATA "VERSEAU' 
, 35, -4 
: DATA "CANCER". 
231,19 
: DATA "CAPRICOR 
NE", 42, -16 
5: DATA "POISSONS 
", 348, ? 
DATA "BALANCE" 
, 135, -12 
1908: °7"ON ERROR 
GOTO 1293. 
DIM A$C(B)KkIE 
:dAIT A 


1821.READ A$(Q),a 


1243: REEP 


; B:LPRINT A$ 
(B);4;B.GOT0O 
120: 
1]: PAUSE 
- END 


bles ne sont pas les mêmes. Aussi, doit- 
on connaître les coordonnées terrestres 
du lieu géographique où l’on se trouve. 
Vous trouverez dans un atlas géographi- 
que la longitude et la latitude du lieu qui 
vous concerne. 


DEF S$S et le programme débute. 
Introduire à la demande du PC-1500 les 
latitude et longitude du lieu d’observa- 
tion, préciser Nord, Sud, Est ou Ouest.” 


Du côté du temps, l’heure du pro- 
gramme est celle de Greenwich, le TU 
(temps universel) et pour l’obtenir à par- 
tir de l’heure fournie par la fonction 
TIME, il faut retrancher, ou ajouter 
(selon le lieu et l’heure légale en vigueur) 
un décalage horaire. 


Le nez dans 


les étoiles 


Par exemple, en France, en été, 
l’heure légale (celle de TIME) est supé- 
rieure de deux heures à celle de Green- 
wich (contre une seulement en hiver). 
Donc le décalage horaire est +2. A 
New York, en hiver, de décalage est — 5 
(5 heures de moins). On introduira ce 
décalage à la demande de l’ordinateur. 


Et après avoir tant travaillé, la récom- 
pense est là : la liste des coordonnées 
des 36 constellations est imprimée, seu- 
lement pour celles qui sont visibles au 
lieu et à l’heure de l’observation (il n’est 
pas tenu compte d’éventuels arbres, 
montagnes ou buildings qui restrein- 
draient le champ de vision..….). 


La liste fournie donne deux noms : 
ceux de la constellation et de son étoile 
la plus brillante. Ensuite, les coordon- 
nées sont, dans l’ordre, la hauteur et 
l’azimut de l'étoile. 


Le reste du programme, c’est à vous 
qu’il incombe de le réaliser : sortir, lever 
la tête dans la bonne direction et... con- 
templer ces étoiles. 

Si vous ne possédez pas d’impri- 
mante, il convient de remplacer chaque 
LPRINT en PRINT et d’éliminer les 
instructions comme LF n, CSIZE n, 
COLOR n,.. qui sont celles du CE-150. 
A la ligne 100, ôn donnera à A la valeur 
1985 et on remplacera l'expression 
HO = 99.8 par HO = 100.59 en ligne 120. 


Et si votre imagination vous permet 
de modifier le programme, peut-être un 
jour trouverez-vous Syrée, l’étoile des 
navigateurs facétieux... Comment ? 
Vous ne connaissez pas l’étoile Syrée ? 


ANTOINE 
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DU GUÉPARD 


LIST A TESTÉ. 


LE BASIC 


ES astuces du Guépard, ordinateur français, 
feraient rougir bien des machines 
étrangères : clavier mixte, fonctionnement 
autonome sous batterie, deux systèmes 
d'exploitation renommés... Et le Basic, malgré 
quelques archaismes, se montre bien séduisant. 


L’allure massive du boîtier de 

l’unité centrale se justifie par l’in- 
tégration de deux lecteurs de disquette, 
d’un moniteur vert de 30 cm, des inter- 
faces nécessaires. Il reste même de la 
place pour en ajouter d’autres. De plus, 
de lourds accus sont embarqués à bord. 
Ils assurent une autonomie complète de 
fonctionnement pendant près d’une 
heure. La fin des angoisses dans les 
zones à coupures fréquentes du secteur 
électrique. Conséquence de ce remplis- 
sage du boîtier : le volume et le poids 
s’en ressentent. 


New Dos 80 


et CP/M3 


Le clavier contraste par sa faible 
épaisseur et son encombrement réduit. 
Mais il s’avère très complet, avec son 
pavé numérique, son double jeu de flè- 
ches de. curseur et ses 15 touches de 
fonction (sans compter les 27 autres 
obtenues par ESC et une touche alpha- 
bétique). Encore une originalité : il est 
configurable en Azerty ou Qwerty, 
selon les besoins. Il suffit d'échanger les 
cabochons de touches et d’exécuter un 
petit programme de configuration. Cela 
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ne prend qu’une ou deux minutes. 
Avantages : la lisibilité est meilleure 
qu’une gravure multiple et l’accès reste 
ouvert à d’autres dispositions (entre 
autres, le nouvel arrangement Dvorak 
pour lequel il suffirait de réaliser le petit 
programme d’exploitation en langage- 
machine). 


Les lecteurs de disquette demi- 


épaisseur exploitent, selon les versions, 
40 ou 80 pistes en double face. Cela 
donne au maximum 720 Ko par dis- 
quette. Une capacité très profession- 
nelle. Et les SED (systèmes d’exploita- 
tion des disquettes) pour en tirer parti 
ne sont pas, eux non plus, des joujoux : 
il en existe deux qui me plaisent autant 
l’un que l’autre. Le premier donne du 
génie à cet ordinateur, c’est NewDos 80 
d’Apparat. Le second apporte une 
bibliothèque de programmes fabuleuse : 
c’est CP/M 3 (aussi appelé CP/M +). 
Grâce à lui, j’ai pu jouer avec Dbase 2 et 
SuperCalc 2. La programmathèque dis- 
ponible sous NewDos n’est pas ridicule 
pour autant puisque ce SED donne 
accès aux logiciels écrits pour TRS-80. 
La lecture des disquettes de ce dernier 
oblige cependant à définir les bonnes 
caractéristiques de PDRIVE (com- 
mande permettant de lire des disquet- 
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LIST À TESTÉ 


tes écrites dans des formats différents) 
et éventuellement à en réécrire le réper- 
toire (WRDIRP). 


Le Basic n’est disponible que sous 
NewDos. Les utilisateurs habitués à 
CP/M seront donc contraints de renon- 
cer à leur SED préféré pour écrire leurs 
programmes. Contrairement à ce qui se 
passe sur le TRS modèle III, le SBasic 
du Guépard est entièrement chargé à 
partir de la disquette et il laisse 38200 
octets de mémoire utilisateur. Son 
appel est effectué par la commande 
BASIC, suivie de deux paramètres 
facultatifs déterminant le nombre de 
zones tampons réservées pour les 
fichiers, et la zone mémoire à protéger 
pour les routines en langage-machine. 
Une commande Basic est également exé- 
cutable conjointement à l'appel de 
l’interpréteur. 


Version élaborée 


du Basic 


Le SBasic s’appuie sur des fondations 
Microsoft, gage de puissance et de stan- 
dardisation. De fait, la base syntaxique 
et lexicale se révèle classique et com- 
plète. Le ELSE donne l’alternative à 
IF... THEN, on trouve les ON GOTO 
et ON GOSUB, DEF USR, VARPTR 
et autres PRINT USING et LINE 
INPUT qui caractérisent les versions 
élaborées du Basic. Et l’on remarque 


Les 10 tests de LIST* 


Test 


Boucle vide : 
Sous-programme : 
Calcul matriciel : 
Chaînes de caractères : 
Arithmétique : 

Calcul scientifique 

(16 chiffres) : 230 5 
Affichage : 630 s 
Tracé d’une ligne graphique : non 
réalisable sans interface haute réso- 
lution (absence de LINE) 

9. Écriture fichier (disquette) : 290 s 
10, Lecture fichier (disquette) : 160 s 


# (Voir le détail des tests dans LIST 7, page 83) 


125 
365 
495 
100 s 
725 


LE RE LR ve ASE 
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quelques signes de recherches visant à 
apporter du confort au programmeur. 
RND ne se contente pas de produire des 
nombres aléatoires entre 0 et 1, il sait 
aussi générer directement des nombres 
entiers. PAUSE paramétré en centièmes 
de seconde remplace avantageusement 
les boucles d’attente. 


La pseudo-variable TIMES n’a pas 
été oubliée pour l’exploitation directe de 
l’horloge interne. Pour la causerie en 
langage-machine, PEEK et POKE sont 
prêts à s’adresser au Z80 qui équipe le 
Guépard et INP et OUT se réservent le 
dialogue avec les ports. Pas d’oubli 
donc dans les instructions générales. 


Un peu moins de raffinement, en 
revanche, dans le domaine des fonctions 
mathématiques. La trigonométrie ne se 
joue que sur des angles délivrés en 
radians et les logarithmes décimaux ne 
peuvent s’exprimer qu’à partir de leurs 
cousins népériens. La manipulation de 
nombres en hexadécimal ou octal a par 
contre été prévue. Pas de problème dans 
la précision des calculs puisque les trois 
grands types de variables numériques 
sont présents : entiers, simple ou dou- 
ble précision (16 chiffres significatifs). 


Les définitions de type se font soit au 
coup par coup avec les suffixes %, ! et 
#, soit globalement avec DEF. Les 
identificateurs restent limités à deux 
caractères significatifs, ce qui n’exclut 
pas des noms vraiment parlants mais 
laisse moins de choix dans les désigna- 
tions (par exemple, une variable Lon- 
gueur est valide, mais Longitude dési- 
gne la même « case » de stockage). 


Les chaînes comportent jusqu’à 
255 caractères. Leurs manipulations 
s’opèrent avec les instructions habituel- 
les du Basic Microsoft : LEFTS$, 
RIGHTS, MID$, STRINGS$, STRS, 
VAL, INSTR et LEN. Et l’on retrouve 
la possibilité de contrôler l’espace 
qu’elles occupent en mémoire vive avec 
FRE(x$), FRE(x) indiquant, lui, la place 
utilisée par le programme. 


La gestion des fichiers s'opère comme 
dans le Basic Microsoft, pour le séquen- 
tiel et l’accès direct classique. Cinq 
autres types de fichiers à accès direct 
sont également réalisables donnant une 
grande souplesse dans la réalisation des 
programmes. Le type ‘MU?’ permet les 
enregistrements de longueur variable et 
l'accès direct grâce à des marques de 


séparation. Les types ‘‘MF”’ et ‘FF’? 


réalisent des enregistrements de lon- 


gueur fixe pouvant aller jusqu’à 4095 
caractères, le premier avec marqueur de 
repérage, le second sans (à la charge du 
programmeur). Les deux derniers types, 
“MPI’’ et ‘‘FI”” produisent des fichiers 
dont la position des variables est con- 
trôlée par le programmeur (pas de seg- 
mentation des enregistrements). 


Jusque-là, un Basic propre et com- 
plet, mais pas vraiment génial. La ges- 
tion des graphismes et sons nous fait 
entrer dans des zones plus originales. 
Disons tout de suite que la résolution 
graphique n’est pas des meilleures dans 
la version de base. Sans la carte haute 
résolution optionnelle, la définition se 
limite à 160 X 72 points. Mais l’affi- 
chage est bien exploité par le Basic. Il 
donne déjà le choix en mode texte entre 
16 lignes de 64 colonnes (compatibilité 
TRS) et 25 lignes de 80 colonnes. Des 
zones épargnées par le déroulement de 
l’image (scroll) peuvent être délimitées 
en haut ou en bas de l’écran. On a d’au- 
tre part accès à la vidéo inverse, cligno- 
tante ou demi-intensité. À condition de 
trouver le bon câble péritel, l’exploita- 
tion couleur devient accessible : 32 cou- 
leurs disponibles grâce à l’interface péri- 
tel incluse dans l’ordinateur. 


Pour le son, toutes les fantaisies sont 
permises sur les trois voies existantes. 
L’instruction PLAY se paramètre avec 
le numéro du canal, l’octave (0 à 6), la 
note (1 à 12), le volume et la durée. Une 
modulation d’enveloppe est même pré- 
vue, mais elle nécessite une programma- 
tion directe des registres du générateur. 
Celle-ci s’effectue par SOUND suivi du 
numéro de registre et d’une valeur de 0 
à 255. 


La vraie richesse du SBasic se trouve 
dans le domaine des commandes. Elles 
assurent un pilotage grand confort et 
sont complétées d’un éditeur bien agréa- 
ble. Numérotation automatique des 
lignes de programme (de 0 à 65529) et 
renumérotation disposant de deux 
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options U et X. La première vérifie qu’il 
n'existe pas d’impossibilité à la renumé- 
rotation. Elle constitue un moyen très 
simple pour contrôler la présence de 
branchements sur des numéros de ligne 
non définis. La seconde option, X, 
accepte, elle, les numéros indéfinis, ce 
qui évite un « plantage » si l’on décide 
de renuméroter avant d’avoir fini 
d’écrire le programme. 

La suppression de lignes, par 
DELETE (ou D) s’accompagne égale- 
ment de deux options permettant de 
transférer une ligne d’un numéro à l’au- 
tre avec ou sans effacement de l’origi- 


Fiche technique du Guépard 


Constructeur et distributeur : HBN 
Electronic S.A. BP 2739 - 51060 Reims 
Cedex ; 

Prix public : environ 1500 FF 
Processeur : Z80 à 4 MHz 

Mémoire vive disponible : 64 Ko 

(38 Ko après chargement du SBasic) 
Mémoire morte : 2 Ko (extensible à 16) 
Langage : SBasic sur disquette 
fournie avec la machine 

Précision : calculs sur 16 chiffres 
significatifs 

Nombre de mots clés du Basic : 140 
Fariables : entières de - 32768 à 
32767 ; 6 chiffres significatifs pour la 
simple précision et 16 pour la double 
précision 
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RIGHTS 


NEXT RND 
NOR RSET 
pus EL INV ON RUN 
“S” ERR OPEN 
CMD «T> ERRoR KILL . SAVE 
&H CMD EXP LEFTS OUT SGN 
su "CONSB Een  LEN SIN 
ABS CONSH FIX LINE INPUT # PAUSE SOUND 
AND CONT FLA LINE INPUT PEEK SQR 
ASC COS EN LE? PLAY STEP 
ATN CVD FONCAR LLIST POINT STOP 
AUTO nu FONECR LOAD POKE STR$ 
CVS LOC POS 
CAR FOR LOF PRINT # STRINGS 
CHRS DATA FRE LO TAB 
es DEF FN G PRINT 
av DEFUSRn GET LPRINT PUT TAN 
CLOSE  DEFux  GOSUB  LSET READ ML 
TIMES 
CLS DELETE  GOTO  MEM REF 6 
CLV DI GRE MERGE REM TRES 
CMD “C” DIM IF MIDS RENEW  TRON 
CMD “ÆE” DU INKEY$  MKDS RENUM 
CMD “F” EDIT INP MKIS RESET USING 
CMD “J”  ELSE INPUT # MKSS RESTORE  USRn 
CMD “O” END INPUT NAME RESUME VAL 
CMD “R” EOF INSTR NEW RETURN  VARTPR 


nal. La commande LIST autorise de 
nombreux raccourcis, opérant grâce à 
une seule touche. Le point liste la ligne 
courante, les flèches verticales la sui- 
vante ou la précédente, le point-virgule 
ramène à la première ligne du pro- 
gramme, tandis que la barre de fraction 
conduit au listage de la dernière ligne. 
Les deux-points et le ‘‘à”” affichent une 
page écran complète, avec la ligne cou- 
rante en bas ou en haut de l’écran. Tou- 
tes ces astuces semblent peut-être insi- 
gnifiantes lorsqu’on en lit la description, 
mais je peux vous garantir qu’à l’usage, 
c’est bigrement agréable. 


Même confort d'utilisation pour 
l'éditeur, bien qu’il ne soit pas réelle- 
ment de type écran. La commande 
EDIT provoque le passage en mode édi- 
tion avec affichage d’un symbole gra- 
phique en tête de chaque ligne. Le 
déplacement obéit aux flèches, l’inser- 
tion et la suppression étant réalisées en 
« shiftant » les flèches latérales. La sor- 
tie de ce mode s’obtient par Enter ou 
Break, et dans ce dernier cas, les modi- 
fications effectuées ne sont pas prises en 
compte. 


Une aide précieuse pour la mise au 
point et l’archivage des programmes est 
apportée par la commande REF. Elle 
établit une liste sur écran ou sur impri- 
mante des références de variables, d’en- 
tiers, de numéros de ligne, d’instruc- 
tions Basic ou de chaînes de caractères. 
Facile ainsi de débusquer les doubles 


Liste des mots clés du Basic du Guépard 


emplois de variables ou de mettre en évi- 
dence les branchements incorrects. En 
faisant par exemple REF = GOTO, vous 
affichez tous les numéros de ligne où se 
niche un GOTO. La réalisation du 
tableau des variables pour l’archivage 
du programme devient un jeu d’enfant. 
Ab, si tous les Basic disposaient d’une 
telle commande ! 


Le SED commatdé 
depuis Basic 


Autre commande que je trouve 
géniale : CMD ‘‘C”. Elle supprime de 
la liste les espaces inutiles et/ou les 
remarques. L’optimisation d’un pro- 
gramme est ainsi réalisée automatique- 
ment. Et l’on ne craint plus de mettre 
au point sur une version délayée pour 
exploiter ensuite une liste concentrée. 
Tous les programmeurs rigoureux 
apprécieront. 


La dernière commande citée n’est pas 
la seule à réclamer le préfixe CMD. Et, 
ici nous apparaît un trait de génie de 
l'interface NewDos-SBasic. En effet 
toutes les commandes du système d’ex- 
ploitation sont accessibles directement 
depuis Basic. Il suffit d’y écrire “CMD”? 
devant la commande. Et l’on parvient 
ainsi à formater des disquettes, à dupli- 
quer des fichiers, à exécuter toutes sor- 
tes de tâches normalement réservées au 
SED, depuis le Basic, sans perdre le pro- 
gramme en mémoire. D’autres com- 
mandes obéissant à CMD sont encore 
disponibles pour permettre le tri de 
variables, pour définir des fonctions 
spéciales (remise à zéro des pointeurs 
d’adresse de retour de sous-programmes 
ou de piles FOR...NEXT, échange de 
variables...) et même pour convertir des 
dates en numéro de jour de l’année. 


Toutes les astuces de commande que 
nous venons d’examiner mettent en évi- 
dence un dialogue réussi entre un 
système d’exploitation bien pensé et un 
Basic astucieux. Et l’ordinateur qui 
accueille ces hôtes de marque possède, 
nous l’avons vu, sa dose de génie. 


Cela montre que les systèmes 8 bits 
ne sont pas du tout périmés et que les 
ordinateurs français ne sont pas ridicu- 
les comparés aux productions étrangè- 
res. Il reste au Guépard à se faire con- 
naître, à compléter sa collection de logi- 
ciels et à améliorer peut-être son aspect 
esthétique. Si ces trois points sont réso- 
lus, Guépard fera du chemin. 


Xavier de LA TULLAYE 
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ASSEMBLEUR DU 6502 


CONCEPTION 


de ces jeux d'arcad 
impressionnante. E 


lemane », il y a un 
meille, Peut-être 


mation tellement 
tre aimeriez-vous aussi 


en percer le secret ? Voici ine méthode 


d'animation que vous p 


Le graphisme de l’ Apple possède 

une organisation assez particuliè- 
re. Les pages graphiques sont compo- 
sées de 192 lignes de 280 points. Le 
nombre de lignes est standard, mais à 
quoi correspond ce nombre de points ? 
Chaque ligne est composée de 40 octets 
et chaque octet est formé de huit bits, 
numérotés de 0 à 7. Or, les bits 0 à 6 
permettent d’allumer un point sur 
l’écran, le bit 7 étant réservé à la défi- 
nition de la couleur. On retrouve donc 
40 fois les 7 bits (numérotés de 0 à 6), 
ce qui fait bien 280 points. 


En outre, les colonnes de points ne 
sont pas équivalentes. Les colonnes pai- 
res permettent de dessiner des points 
violets ou bleus, les colonnes impaires 
autorisant des points oranges ou verts. 
Deux points horizontaux consécutifs 
allumés donnent un point blanc, par 
addition de couleurs (voir figure 1). 
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irrez mettre à profit. 


Pour observer ce phénomène, tapez : 
HGR:VTAB 21I:CALL-151 (passage 
dans le moniteur) 2000:55. 

Vous pouvez voir alors l’octet en haut 
à gauche s’illuminer en violet (si vous 
avez la couleur !). 


Les économies 


de Steve Wosniak 


Des remarques s’imposent : 
e les bits à l’écran sont dans le sens 
inverse de leur écriture binaire ; 
e la page graphique numéro 1 s’étend 
des octets $2000 à $3FFF, la page 
numéro 2 allant de $4000 à $S5FFF ; 
e la première ligne d’écran va de $2000 


à $2027 (27 en hexadécimal est égal à 39 
en décimal), mais l’octet $2028 n’est pas 
le premier de la ligne numéro 2, comme 
on aurait pu le penser. 


En entrant le programme suivant, on 
voit ce qui se passe : 
10 HGR 
20 FOR 1=8192 TO 16384 
30 POKE 1,255 
40 NEXT I 


Ce programme se contente d’écrire, 
dans tous les octets de la page haute 
résolution, la valeur 255 ($FF) qui 
donne la couleur blanche. Après avoir 
rempli la première ligne, il ne passe pas 
à la seconde. Il va plus bas, à la ligne 
numéro 64 pour être exact. Voilà qui 
complique singulièrement les choses. 


Les raisons en sont pourtant simples : 
quand Wosniak et ses amis ont construit 
l'Apple, ils l’ont conçu de la manière la 
plus économique possible afin d’offrir 
un ordinateur avec haute résolution au 
prix le plus bas. Faire que les lignes 
d’écran soient consécutives en mémoire 
aurait augmenté le nombre de compo- 
sants et donc, le prix de l’Apple. 


Si vous avez laissé tourner le pro- 
gramme de remplissage d’écran, vous 
avez dû remarquer son impressionnante 
lenteur. Aussi, pour apprécier la vitesse 
du langage-machine, tapez : HGR: 
HCOLOR=3:HPLOT O,0:CALL 
62452. Et ça devient remarquable ! 


Passons à des choses sérieuses : le 
dessin d’un avion dans le coin en haut 
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à gauche de l’écran. Pour cela, sortons 
Parme absolue de l’Applemane gra- 
phiste, le papier quadrillé. 


Quand les calculs 


sont trop lents 


On choisit les dimensions de notre 
avion : trois octets de long (21 points) 
sur huit lignes de hauteur (voir figure 2). 


Figure 1 


Couleur des points en fonction de la valeur des octet: 


Et pour le faire apparaître à l’écran, il 
faut taper : HGR:VTAB 21:CALL-151 
2000:60 7F 07 

2400:03 42 40 

2800:07 7F 5F 

2C00:7F 7F 7F 

3000:7F 7F 5F 

3400:7F 7F 4F 

3800:08 40 01 

3C00:06 00 03 


Le problème maintenant est de pla- 
cer cet avion à un endroit quelconque 
de l’écran. Ce qui revient à trouver les 


bé Valeur SoReux des nes 
hexa Paires Impaires 
00000000 $00 Noir 1 Noir 2 
10000000 À $80 Noir 2 Noir 2 
01111111 $7F Blanc 1 Blanc 1 
11111111 Blanc 2 | Blanc 2 
01010101 Violet Vert 
11019101 Bleu Orange 
00101010 _ Vert Violet 
10101010 | S$AA Bleu 
L'étoile (x) représente un bit allumé (mis à 1). 


BEBE TS TE PLAT 
be DESSINE — HO! 


Figure 2 
Représentation de l'avion à 
1° octet 2° octet | 

lala lalalalalele ll xls 60 7F 07 
* [+ * * * 03 42 40 
x |+«lx klalalal alex el lala x * 07 7F 5F 
Aka lx lala lala lala lala x le Dale De Dax Da Dax Lu 7E 7F 7F 
klalalalalele lala lala lee la De Da Da Da lu * 7F 7F 5F 
lala lalalael ele le la lee ue le lala Du Lx * 7F 7F 4F 
+ x | + 08 40 01 
«| + CRE 06 00 03 
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Figure 3 
* Table Look Up 
06000.617F 

6000- 20 24 28 2C 30 34 38 3C 
6008- 20 24 28 2C 30 34 38 30 
6019- 21 25 29 20 31 35 39 30 
6018- 21 25 29 20 31 35 39 30 
6020- 22 26 2A 2E 32 36 3A 3E 
6028- 22 26 2A 2E 32 36 3A 3€ 
6050- 23 27 25 2F 33 37 30 3F 
6038- 23 27 25 2F 33 37 30 3F 
6040- 20 24 28 2C 30 34 38 3C 
6048- 20 24 28 2C 30 34 38 3C 
6050- 21 25 29 2b 31 35 39 30 
6058- 21 25 29 20 31 35 39 30 
6060- 22 26 2A 2E 32 36 3A 3E 
6068- 22 26 2A 2E 32 36 3A 3€ 
6070- 23 27 2U 2F 33 37 30 3F 
6078- 23 27 28 2F 33 37 30 3F 
608U- 20 24 28 2C 30 34 38 3C 
ÉUBS- 2U 24 28 2C 30 34 38 3C 
6090- 21 25 29 20 31 35 39 30 
6098- 21 25 29 2D 31 35 39 3D 
6OAU- 22 26 2A 2E 32 36 3A 3E 
6OAB- 22 26 2A 2E 32 36 3A 3E 
6U80- 23 27 28 2F 33 37 3U 3F 
6088- 23 27 2 2F 33 $7 35 3F 
6Uc0- 00 00 00 00 00 00 00 00 
60C8- 8U 8U 80 80 80 80 80 80 
60b0- 09 00 00 OÙ 00 00 00 00 
60b8- 80 80 30 80 80 80 80 80 
60E0- 00 00 00 OÙ 00 00 00 00 
6UE8- 80 80 80 80 80 80 80 80 
60FO- 00 00 00 00 00 00 00 00 
6UF8- 80 80 80 80 80 80 80 80 
6100- 23 28 23 28 28 28 28 28 
6108- AB AB AB AB AB A8 AB A8 
6110- 28 28 28 28 28 28 28 28 
6118- AS AB AB A8 AB AB AB AB 
6120- 28 28 28 28 28 28 28 28 
6123- AB AB AB AB A8 AS AB AB 
6130- 28 28 28 28 28 28 28 28 
6138- AB AB AB A8 AB AB AS AB 
6140- 50 50 50 50 50 50 50 50 
6148- DO DbO DO DO DO bO DO où 
6150- 50 50 50 50 50 50 50 50 
6158- DO DO DO DO DO bO DO DO 
6160- 50 50 50 50 50 50 50 50 
6168- DU bO DO DO bO bO bO DO 
6170- 50 50 50 50 50 50 50 50 
6178- DO DÙÜ DO DO DO oO DO Dv0 


adresses de la ligne initiale et des suivan- 
tes où seront écrits ces octets. La 
méthode qui consiste à faire calculer ces 
adresses n’est pas adéquate du fait de 
sa lenteur. Il va donc falloir utiliser ce 
que les Américains appellent la méthode 
du « Table Look Up ». Elle consiste à 
former une table en deux parties : 

< dans la première partie, on place les 
octets hauts des adresses des lignes tel- 
les qu’elles apparaissent à l’écran ; 

e dans la seconde, de la même manière, 
on place les octets bas de ces adresses. 
Par exemple : 

TABREFH:20 24 28 30 38 3C... 
TABREFB:00 00 00 00 00 00... 


Ce qui donne la table de la figure 3. 
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ASSEMBLEUR DU 650. 


Ne soyez pas effrayé à l’idée de rentrer 
cette table de 384 octets sans faire de 
fautes (fautes qui seraient particulière- 


ADRESSE LDA TABREFB, Y 


CLC 
ADC HORI 
STA GRAFB 


STA GRAFH 
LDY #0 
RTS 


ment ennuyeuses !). Un petit pro- 
gramme Basic (programme 1) fait le tra- 
vail d'assemblage et de sauvegarde de 
cette table. 

L’octet en haut à gauche de l’écran 
sur lequel on souhaite dessiner notre 
avion est repéré par un décalage hori- 


zontal HORI et par la ligne de départ 


VERT. Pour trouver l’adresse de cet 


LDA TABREFH, Y 


octet, on utilise la routine suivante (il 
faut ici que le registre Y contienne le 
numéro de la ligne verticale) : 


charge adresse octet bas 

prépare l’addition 

ajoute le décalage horizontal 
écrit pointeur en page zéro 
charge adresse octet haut 

écrit pointeur suivant de GRAFB 


Il faut maintenant charger les diffé- 
rents octets qui composent notre avion, 
pour les écrire à l’emplacement correct 
sur l’écran. Tout d’abord, inscrivons 
tous ces octets à la suite quelque part en 
mémoire. Sur l’écran, les huit lignes de 
trois octets devront être reconstituées. 
Pour ce faire, il faut initialiser la figure 
comme suit, avant de la dessiner : 


INIT LDA #3 


LDA #0 
LDA #8 


LDA #3 


e et sauvegar 
19 T=24576: REM $6008 

20 FOR Y=8 TO 191 

30 YI=INT(Y/B):VA=Y-Y1#9 

4Q Y2=INT(Y1/E) :VR=YI-Y248 
50 YY=8192+Y2#404+VP#128+Vhx 102 

b@ POKE T+Y, INT(YY/256) 

70 POKE T+1924Y, VY-INT(YY/256)#256 

89 NEXT Y 

99 PRINT CHR$(4)" BSAVETABREF, A66Q0O, L$180" 
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STA FIGH 
STA FIGB 
STA FIGPROF 


STA FIGLONG 
STA TEMP 


le la table Look Up 


charge l’adresse 

de l’avion dans 

; des pointeurs 

en page zéro 

8 dans la 

profondeur de figure 

3 dans la longueur 

de figure 

et un pointeur temporaire 


'HIQUES SUR APPLE II 


zéro, un LDA (FIGB,X) charge l’octet 
pointé par FIGB.FIGH (octet de * 
l’avion) dans l’accumulateur. 


Avec la routine ADRESSE, nous 
avions stocké en GRAFB, GRAFH 
(deux adresses consécutives page zéro), 
l'adresse de l’octet d’écran. Le registre 
Y étant chargé avec la valeur zéro, on 
fait STA (GRAFB),Y pour écrire l’oc- 
tet d’avion sur l’écran. Il reste à pren- 
dre garde d’augmenter la position ver- 
ticale chaque fois que l’on aura écrit 
trois octets (figure 2). 


Paré à 


décoller 


L'avion est alors en mémoire d’écran. 
Mais pour le dessiner, comme notre 
écran est noir, il nous faut utiliser une 
petite astuce : l’emploi de EOR (ou 
exclusif). Il nous permettra d’utiliser la 
même routine pour dessiner l’avion 
aussi bien que pour l’effacer, deux écri- 
tures consécutives remettant l’écran en 
noir. D’où la séquence d’ordres : 


LDA (FIGB, X) ; 
EOR (GRAFB),Y ; 
STA (GRAFB),Y ; 


charge octet d’avion 
fait ou exclusif accumulateur/écran 
écrit le résultat à l’écran 


On utilise alors deux modes d’adres- 
sage du 6502 : l’indexé indirect et l’in- 
direct indexé. Par la routine INIT, nous 
avons stocké la table dans le format bas- 
haut en FIGB,FIGH (ce sont deux 
adresses consécutives page zéro). Le 
registre X étant chargé avec la valeur 


Le choix de l’adressage indexé indi- 
rect pour le chargement des octets de 
l’avion est intéressant. Il permet d’em- 
ployer la même routine de dessin et d’ef- 
façage des formes, en écrivant différen- 
tes adresses pour différentes formes 
dans les pointeurs FIGB.FIGH. Un 


@ 
| 
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Programme 2 
SHURC 


Déplacement de l'avion, liste en Assembleur 


ŒÆ FILE: AUSON 
À #DEPLACEMENT C°AUTON 
NEXT OBJECT FILE HAME 15 AUSOH, DES 


£ OR  +F248 F3 INC FIGB 
3 GRAFE EGLU  $ün FE IN 
4 GRAFH EQU #$ai FF DEC FIGLONS 
S TABREFE EG $64ca Fa BNE DESSINZ 
6 TABREFH EGU  +64na F3 IHC  TUERT 
Fr FIGE EQU  $F£ ga DEC  FIGPROF 
2 FIGH EQU  $F9 81 BHE DESSIN 
S FIGPROF EQU +FA 8e LDA VERT 
18 HORI EAU  #FR 83 STA TUERT 
11 FIGLONS EQU #FC 54 RTS 
12 TEHP EG  #F0 53 AURESSE LDA TABREFB,Y 
13 VERT EGL #$FE 86 CLC 
14 TUERT  ENU #FF 8? ACC  HORI 
15 DELAI EQU  $FCAS 88 STA  GRAFE 
15 UTOUCHE EQU #18 39 LDA  TABREFH,Y 
17 HP ESU  +C43% 3û STAR  GRAFH 
8 # 31 LOY #$09 
3 *EFFACEMENT DE L'ECRAN 32 RTS 
M: ZA + 33 TOUCHE LOA +$Cc08a 
E29a: *MET EN GRAPHIQUE 34 BHI FRAPPE 
5240:60 56 Ca STA $CA5G 5NODE GRAPHIQUE 935 LOR  UTOUCHE 
F203:80 52 Ca STA #Ca52 5PLEIH ECRAN 96 FRAPPE CHP  #$c9 ST" 
6286:80 54 Cô STA +CA54 5PAGE PRIMAIRE 37 BEQ MONTE 
5269: 8D 57 Ca STA $CA57 MODE HGR aa CHP  #$CD 5"H" 
620C:A3 a LOR ##ai 39 BEQ  DESCENT 
620E : A8 TAY 154 CHP_ #$CA A Le 
624F:85 aû STA GRAFE 191 BEQ GAUCHE 
6211:A9 28 NET LOA #$29 509 C 152 CHP  #$CB 5"K" 
6213:85 m1 STA  GRAFH É2AB:FG 33 193 BEQ DROITE 
6215: AA TA 62h2:C9 9B iñ4 CMP  #$9B :ESCAPE 
6216:A9 64 LOR ##ai 5NOIR 1 S244:FA 3F 185 BEQ SORTIE 
5218:91 99 NETI STA €CGRAFR),Y ;:ECRIS À L'ECRAN 6246: 186 *AUCUNE TOUCHE UALIDE 
SelAiCs INT 50CTET SUIUANT S2A6:4C ED 62 107 JMP  CLAULU 
F21B:08 FB BNE NETI 3PAGE  INCOMPLETE 62A9:85 18 188 MONTE STA UTOUCHE 
621D:E6 41 INC  GRAFH 5PAGE SUIUANTE G2AB:C6 FE 199 DEC UERT 
É21F:C4 OE* FDECREMENTE COMPTEUR DE PAGES G2AD:AS FE 116 LOA VERT 
6220:08 FE BNE NETI 52AF:C9 FF 111 CHP  #$FF 
É22Z:H9 6ù LOR  #$60 5CENTRE VERT 62B1:D6 5A 112 BNE  CLAULU 
z STA VERT 62B3:A9 B8 113 LDA #$B8 
STA TUERT 62B5:85 FE 114 STA UERT 
LOR #$i4 5CENTRE HORI 52B7:38 34 115 BMHI  CLAULU 
STA HORI 62B9:85 18 116 DESCENT STA UTOUCHE 
STA  UTOUCHE S0BR:E6 FE 117 INC VERT 
BOUCLE JSR INIT 3UA DESSINER S2BD:AS FE 118 LOA VERT 
LOA #$8a S2BF:CS9 B9 119 CHP  #$89 
JSR DELAI 5ATTENDS 62C1:D0 2A 126 BNE CLAULU 
JSR  INIT 5VA EFFACER 52C3:A9 98 121 LODA +#$99 
JSR SON 5FAIT CLIC 62C5:85 FE 122 STA VERT 
JSR TOUCHE sLIS CLAUIER G2C7:F2 24 123 BED  CLAULU 
LOA UTOUCHE 62C9:85 18 124 GAUCHE STA UTOUCHE 
CMP #$9E 5ESCAPE 7? FeCB:CS FB 125 DEC  HORI 
BNE BOUCLE 3NON G2CD: 14 1E 126 BPL  CLAULU 
RTS 5OUT RETOUR À L'APPELANT SoCF:A9 25 127 LDA #$25 
* 6201:85 FEB 128 STAR HORI 
#INIT AUION 5203:0@ 13 129 BNE  CLAULU 
+ 6205:85 18 13 DROITE STA UTQUCHE 
A INIT  LDA #59 5207:E6 FB 131 INC  HORI 
Ë STAR FIGH 6209:A5 FR EE LDA HORI 
Ag à DA #$0n SoDB:C3 26 133 CMP  #$26 
PE 2 re 6200: 06 GE 134 BNE  CLAULU 
LOA #$08 Ée0F:AS 98 135 LORA +#$9a 
STA FIGPROF 62E1:85 FE 136 STA HORI 
LOA  #$a3 S2E2:F9 68 137 BED  CLAULU 
; STA FIGLONG 62E5:85 18 135 SORTIE STAR UTOUCHE 
STA  TEMP É2E7:2C 19 CA 139 BIT +#Ca18 
DESSIN LOY TUERT G2ER:80 51 CA 148 STA $CG51 
JSR ADRESSE B2ED:AS FE 141 CLAULU LDA VERT 
LOX  #$a8 G2EF:85 FF 142 STA  TUERT 
LDA  TEHP E2F1:60 143 RTS 
STA FIGLONG6 S2F2:AD 36 CA 144 SÜH LOA HP 
DESSINZ LOR (FIGB,X? 62FS:60 145 RTS 
EUR <GRAFB),Y 
STA  {GRAFE),Y NO ERRORS 


*#x SUCCESSFUL ASSEMELY: 


Programme principal Re 
. 10 D$ = CHRS (4) adressage indexé simple ne permettrait par LDA $CO000, puis suivant le cas, 
2U REM TAGLE DE L'AVION 


de mettre au travail qu’une seule forme, 


incrémenter ou décrémenter VERT ou 


He A BLOC" à une adresse fixée à l’avance. HORI, provoquer un petit clic dans le 
D REM 8 ; | : 

50 PRINT DS"BLOAD TASREF" Mais on peut faire encore mieux : haut parleur au En et le tour est 
60 REM LANCE LE MODULE faire voler l'avion et contrôler ce vol joué (programme 2). 

70 PRINT LS'"BRUN AVSON.0BJU" 
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depuis le clavier, avec les touches 
L,J,K,M pour le déplacement et ESC 
pour sortir du programme, toute autre 
touche stoppant le mouvement. Il nous 
faut donc saisir une touche au clavier 


Le programme principal se chargera 
de mettre tous ces morceaux en mémoire 
et une fois lancé, il lancera l’avion 


LIST - PAGE 57 


LECTURE M 


ANS un programme, un même traitement doit 
souvent être appliqué à un grand nombre 

de données. La structure classique d’un tel 
programme lance le traitement après la lecture de 
chaque donnée ou groupe de données. Une autre 
manière de faire consiste à lire toutes les données, 
puis à réaliser les traitements en série. La création 
en Pascal d’une nouvelle fonction va permettre de 
choisir entre les deux manières de faire. 


Le traitement des données dans un 
programme peut être effectué de 
deux manières différentes. La première 
(schématisée par la figure 1) est de la 
forme donnée-traitement-donnée- 


ment est effectué après la lecture de cha- 
que donnée. La seconde (figure 2) est de 
la forme données-traitements, c’est-à- 
dire que les traitements n’ont lieu 
qu’après la lecture de toutes les données. 
Avec une telle structure, les données 


traitement-..., c’est-à-dire que le traite- 
Figure 1 

dis Di 
Figure 2 


je 
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Î 


: UNE PROCÉDURE PASCAL 


MULTIPLE 


sont introduites par groupes, un sous- 
programme permettant d’extraire les 
données individuelles de la liste. 


Une chasse 


aux nombres 


La fonction Pascal décrite ici traite les 
nombres entiers. Elle s’applique donc 
essentiellement au traitement des réfé- 
rences. Elle permet, à partir d’une 
chaîne de caractères contenant une liste 
de nombres, d’extraire ceux-ci un par 
un. Par exemple, appliquée à la liste ‘‘72 
37 28 92”, elle retournera successive- 
ment les valeurs 72, 37, 28 et 92. 


La déclaration de cette fonction (pre- 
mière ligne du programme) fait appa- 
raître les paramètres. Le premier, 
LISTE, est une chaîne de caractères 
contenant le ou les nombres que l’on 
désire transférer dans une variable de 
type INTEGER. Ce paramètre est 
modifié par la procédure car le nombre 
lu est effacé de la chaîne. Le second 
paramètre, VALEUR, représente le 
nombre extrait de LISTE. 


La fonction efface donc de LISTE le 
premier entier qu’elle retourne dans 
VALEUR. Son résultat est de type boo- 
léen. Il indique s’il a été possible d’ex- 
traire une valeur de LISTE : il est vrai 
(true) si la chaîne mémorisait un nom- 
bre, et faux (false) sinon. 


Les nombres de la liste peuvent être 
séparés par n’importe quel caractère 
non numérique, et différent de ‘‘ +” et 
‘77, D’une manière générale, le carac- 
tère séparateur sera l’espace ou le point- 
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Programme de lecture des données 


\ 
Ko 


Lecture de toutes les données 


virgule (ils ne sont pas sujet à confusion, 
comme le sont la virgule et le point). 

Si l’on a besoin à plusieurs reprises, 
dans le programme, de l’entier retourné 
par la fonction, il ne faut pas oublier de 
le stocker dans une variable intermé- 


function suivant (var liste : string; var valeur 


end 


var 1 : integer; 
longueur  : integer; 
arret : boolean; 
negatif : boolean; 
numerique : set of char; 
begin 
numerique: = [?0°..°9°, +°, 7]; 
suivant: = false; 
valeur: =0; 


longueur: = length(liste); 
if longueur > 0 
then 


begin 
=; 


E=it+l; 
if liste[i] in numerique 
then 
begin 
suivant: = true; 
negatif: = false; 
arret: = false; 
repeat 
if listeli] in [°0°..97] 
then 


else 
negatif: = liste[i] =? —?; 
liste[i]: = chr(0); 
i=i+l; 
arret: =i > longueur; 


until arret; 


if negatif then valeur: = — valeur 
end 


ces (en vue de leur impression), sans 
attendre que la précédente ait été trai- 
tée pour indiquer la référence suivante. 
Dans ce cas, elle s’insère dans un pro- 
gramme d’impression de dossiers, de la 
manière suivante : 


write ( Numeros des dossiers à imprimer ( < return > pour sortir) : ?); 


readin(liste); 


while suivant(liste,nodossier) do 


begin 
lire(dossier,nodossier); 
imprimer(dossier) 
end; 
diaire. En effet, chaque appel de la 
fonction a pour objet, outre de fournir 
la valeur numérique, de supprimer cette 
valeur de la liste. 


Si la fonction a pour résultat faux, le 
nombre contenu dans le paramètre 
VALEUR est égal à 0. La réciproque 
n’est pas vraie : VALEUR peut conte- 
nir 0 (si ce nombre appartient à la liste) 
alors que la fonction prend la valeur 
vrai. 


Une telle fonction peut être utilisée, 
par exemple, lorsque l’on désire indi- 
quer immédiatement plusieurs référen- 
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Dans le but de réduire le temps de cal- 
cul d’une telle fonction, un ensemble 
NUMERIQUE est créé dès le début de 
son activation. Il mémorise les caractè- 
res qui peuvent apparaître dans les nom- 
bres. Ceci évite au système de recons- 
truire régulièrement cet ensemble lors de 
l'exécution. 


La fonction recherche le premier 
caractère numérique de la liste. Dès qu’il 
a été trouvé (ou bien lorsque la chaîne 
a été explorée en totalité), cette recher- 
che se termine. Il est alors possible de 
connaître le résultat de la fonction. Si 
le caractère a été trouvé, elle prend la 
valeur vrai puisque le nombre suivant 
existe dans la liste. Sinon, elle prend la 


valeur: = 10+valeur + ord(listel[i]) — ord(°0’) 


if not arret then arret: = not (listeli] in numerique) 


ALT 7 


: integer) : boolean; OA Ë DS 
A 


YÈ 
while not (liste[i] in numerique) and (i < longueur) do 


Craitement des données 


valeur faux, la liste ne contient plus de 
nombre. 


Puis cette liste est à nouveau explo- 
rée. Dès qu’un chiffre est détecté, il est 
pris en compte dans la valeur entière. Il 
est ensuite effacé de la chaîne, ou plus 
exactement remplacé par le caractère 
NUL de code ASCII égal à 0. Le par- 
cours de la liste s’arrête dès l’occurrence 
d’un symbole non numérique. Comme 
le caractère nul peut ne pas être affiché 
sur les écrans, il est possible d’indiquer 
à tout moment la liste des données à 
traiter. Ceci s’effectue simplement par 
l’affichage de la variable passée dans le 
paramètre LISTE. 


Cette fonction simple rendra sans 
doute de grands services aux utilisateurs 
de programmes informatiques, en leur 
évitant d’attendre la fin d’un traitement 
avant de lancer le suivant. Elle contri- 
bue ainsi, de manière efficace, à rendre 
ces programmes plus clairs et plus 
agréables à utiliser. 


Fh ET. 
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UR le TRS-80, le système d’exploitati 
disquettes offre une horloge qui bat 


seconde. Mais il est possible d'améliorer 
très nettement ces performances et de 
chronométrer au 40° de seconde. 


Les possesseurs de TRS-80 avec 

disquette savent que les diffé- 
rents SED utilisables permettent un affi- 
chage optionnel des indications de l’hor- 
loge. Certains utilisent cette horloge 
interne pour afficher automatiquement 
des durées de calculs en encadrant ceux- 
ci par : UD$ = TIMES (calculs) UF$ 
= TIMES. I! suffit alors de traiter UD$ 
et UF$ par un sous-programme : 

10 DEF FNDU (AS,B$,1)= VAL 
(MID$(B$,1,2)) —- VAL 
(MIDS(A$,I,2)) 

20 DH=FNDU(UDS,UF$,10) 

DM = FNDU(UDS,UFS$,13) 

40 DS = FNDU(UDS,UF$,16) 

IF DS < 0 THEN 

DS = DS + 60:DM = DM - 1 

IF DM < 0 THEN DM = DM + 

60 :DH=DH-1 

200 PRINT USING‘DUREE : ## 
Heures ### Minutes ### 
Secondes‘‘;DH;DM;DS 

qui affichera la durée à la seconde près. 


Dans certains cas il peut être intéres- 
sant ou nécessaire de connaître cette 
durée avec plus de précision, ou de pou- 
voir évaluer des durées inférieures à la 
seconde. Or, sous DEBUG (TrsDos 


LIST - PAGE 40 


60 


mais pas NewDos) l'instruction « U » 
permet de constater que l'horloge 
« bat » plus vite que la seconde. 


Saisir à 


la seconde juste 


En effet, si l’affichage position 
4041H change à chaque seconde, l’af- 
fichage en 4040H change beaucoup plus 
vite, en fait tous les 1/40 de seconde 
(25 millisecondes) et les quelques lignes 
suivantes permettent de le vérifier à 
l'écran : 

10 A=0:B=0:S1 =0:UDS = ‘‘”? 
20 CLS 

30 A = PEEK(&H4041) 

40 B=PEEK(&H4041) 

50 IF A=B THEN 40 

60 S1 = PEEK(&H4040) 

70 UD$ = TIMES 

80 PRINT RIGHTS(UDS$,8) 
90 GOTO 30 


On notera à l’occasion de ce contrôle, 
car cela est important pour la suite, une 


remise à zéro de 4040H à chaque pas- 
sage à 256. 

Il est donc théoriquement possible, 
sous condition de pouvoir saisir cette 
valeur juste avant celle de l’horloge 
(donnée par UD$ = TIMES), de mesu- 
rer des durées au 1/40 de seconde. 


En pratique cependant, si l’on se con- 
tente d’effectuer la saisie des données 
par: Si=PEEK (&H4040):UD$ = 
TIMES, puis, après les calculs, S2= 
PEEK(&H4040):UF$=TIMES, on 
constate des anomalies lors du traite- 
ment de S2-S1. Il est en effet hautement 
improbable, par cette méthode, de réus- 
sir à saisir « Si» exactement au 
moment du début de la seconde ; il en 
résulte une erreur aléatoire pouvant 
atteindre 39/40 de seconde et le pro- 
blème n’est toujours pas résolu. 


Il faut donc non pas déclencher le 
chronomètre au début du calcul, mais, 
au contraire, déclencher le calcul lors- 
que le chronomètre est exactement à la 
seconde juste. Ceci semble pouvoir être 
obtenu par : 

n n A=PEEK(&H4041) 

x x B=PEEK(&H4041) 

mmIF A=BTHENx x 

o o Si = PEEK(&H4040):UDS$ = TIMES 
(calcul) 

p p S2 = PEEK(&H4040):UF$ = TIMES 

Le traitement de S2 — S1 découle du 
fait que S1 augmente de 40 à chaque 
seconde écoulée et qu’il est remis à zéro 
à chaque passage à 256. Ainsi, après 
traitement de UD$ et UF$, afin d’obte- 
nir DH,DM et DS, il faut encore ajou- 
ter au sous-programme de traitement : 


N° 8 - AVRIL 85 


Au 49° de seconde 
Programme pour TRS-80 Modèle 1 
‘Auteur Henri Volleau 

Copyright LIST et l’auteur 


Partie en Basic 


10 SAVE'"TESTDURE/EAS:0@":STOF 
26 PGM DE DEMONSTRATION DE CALCUL DE DUREES U 
56 ‘ DUREE FRECISE à +/- 12.5 miiliseconce 


CMD'"LOAD USRDUREE/ASS" 
208 CLS 

Z1@ CLEAR 100 

22@ DEFUSRO=2HFEQG 

238 DEF FNDU(A#.B#,1)=VAL(MIDS:B#,I,2))-VALiIMIDE(A#H. 1.2): 
24@ DEF FNA1(A,B,C)=40*x (3602 A+6DxEH4C) 

250 DEF FNAZ(A.H.C, D) =D+FNAI (AE. C)-TSéxF]X (FNAI (AH, CT) /2567 


INFUT "Nb de boucles ‘":1M 


S1i=USRQ (@) 

420 UD$=TIMES 

450 FOR I=i TO IM 

44@ FRINTà @.1;: 

45Q NEXT 

460 S2=FEEI: (&H4B40) 

47Q UF#=TIMEE 

488 ‘----—-“.... 

SO CLS 

519 FRINT UF#:£27 

5320 FRINT UD#:S1 

530 PRINT 

549 DH=FNDU (UD#.UF+$,1@) 

550 DM=FNDU (UD$,UF#,13: 

560 DS=FNDU (UD ,UF#,16) 

570 IF DS<Q THEN DS=DS+6@: DM=DM-1 

580 IF DM<Q THEN DM=DM+60: DH=DH-1 

590 Si=FNA2(DH,DM,DS,S1) 

68m xXS=52-51 

61@ IF XS<@ THEN XS=X5+256 

628 DS=DS+x5/40 

658 FRINT USING"DUREE : ## Heures ### Minutes #4#4#.4H## Seccrdes": 
DH: DM: DE 

GOTO 3500 


Routine en Langage-Machine 


00108 ; PGM DE SAISIE DU 1/48 DE SECONDE 


DD11Q 3 
88120 : 
FEUG aaisa ORG QFE@GH 
FE2G 214140 @o014Q DEB LD HL,4841H 
FEQZ 7E 8158 LD A, CHL) 
FEQ4 BE @016@ TEST CF CHL) 
FES ZBFD e817@ JR Z,TEST 
FEQ7 2B pa18@ DEC HL 
FEU8 6E @019@ LD L, CHL) 
FE99 2600 a02e0 LD H,8 
FEQOKH CSSADA Q@a71a JF GASAH 


AG:20 


Le seul ordre spécifique au NewDos-80 est CMD ‘“LOAD...”, Les utilisateurs de 
Trs Dos devront donc supprimer la ligne 100 (qui permet le chargement de la routine 
directement sous Basic) et prévoir le chargement préalable de cette routine sous Dos. 
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ÉVIDEMMENT, (1 NE DONNE Pius 
QUE L'HEURE ET ENCORE... SAUF 
LES DIMANCHES ET VORS FERIES 
MAIS J'Y Suis ATTACHE ! 


70 S1=S1+40+x(3600+*DH + 60+ 
DM + DS) 

80 SI =S1 -256*FIX(S1/256) 

90 MS=S2-S] 

100 IF MS <0 THEN MS =MS +256 
110 DS = DS + MS/40 

et modifier le USING de la ligne 200 
(###.### Secondes) pour obtenir l’af- 
fichage des millisecondes. 


Tester en 


s'amusant 


L’essai d’un tel programme montre 
cependant encore quelques petites ano- 
malies sur les courtes durées, ce qui sem- 
ble indiquer que le Basic est trop lent 
pour saisir le moment exact du passage 
de la seconde juste. 


J’ai donc préféré d’une part confier 
cette tâche à un petit programme en 
langage-machine qui sera exécuté par 
USR et, d’autre part, effectuer les cor- 
rections de Si par fonction. 


Finalement le programme obtenu, qui 
permet de s’amuser à tester la durée de 
boucles simples (ou tout autre calcul 
exécuté entre les lignes 430/450), donne 
entière satisfaction. Il permet, entre 
autres, de déterminer les portions de cal- 
cul à optimiser ou plus radicalement à 
remplacer par des appels USR pour aug- 
menter la rapidité d’exécution. 


Henri VOLLEAU 
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LES COUPS D'ŒIL DE LIST, 


3D MOVYER 
L'ESPACE 


A TROIS DIMENSIONS 
DANS LE ZX SPECTRUM 


À troisième dimension attire de plus en plus 
les amateurs de programmation, si l'on en 
juge par l'abondance des nouveaux livres de 
micro-informatique traitant de ce sujet. Grâce au 
programme 3D Mover pour le Spectrum, il est très 
facile d'accéder à cette troisième dimension, sans 
aucune connaissance mathématique particulière. 


Le logiciel 3D Mover est fourni sur 

une cassette dont les deux faces 
sont enregistrées. Il est accompagné 
d’une légère brochure explicative, for- 
mat agenda de poche, d’une quinzaine 
de pages. 

Sur une face, nous trouvons 3D 
Mover proprement dit, tandis que sur 
l’autre, nous trouvons un autre pro- 
gramme nommé 3D Basic. L'un et l’au- 
tre de ces programmes s’autolancent par 
une démonstration de leurs possibilités. 
Trois vecteurs définissent une base de 
l’espace et s’animent alors sur l’écran à 
bonne vitesse, au cours de rotations, 
translations, zooms avant et arrière. De 
quoi nous allécher avant de réaliser 
nous-même nos propres animations. 


Avant de voir les possibilités respec- 
tives des deux programmes, il n’est pas 
inutile d’ouvrir une parenthèse pour 
parler de la qualité des enregistrements 
des logiciels vendus sur cassette. 
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Bien que disposant de deux lecteurs 
de cassettes différents, je n’ai pas pu lire 
correctement la face contenant 3D 
Mover. Le problème, dans ce cas, devait 
être dû à une amorce finale trop courte 
qui entraîne un ressaut en fin de lecture 
et donc le message désolant d’erreur de 
chargement. Ce n’est qu'après bien des 
acrobaties et après avoir compris que le 
dernier programme en cause ne conte- 
nait que les DATAs de la démonstra- 
tion, que j’ai pu finalement disposer de 
l'essence même du programme 3D 
Mover. 


Les sociétés diffusant des logiciels ont 
un effort à faire quant à la qualité des 
supports sur lesquels ils enregistrent 
leurs programmes, surtout quand ils 
sont de qualité. 


Au chargement, ce n’est pas moins de 
cinq programmes ou blocs d’octets qui 
vont être implantés en mémoire, dont 
deux contenant les DATAs de la 


La démonstration 
alléchante du logiciel 
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démonstration. Donc une longue attente 
avant de pouvoir être actif. On peut 
regretter que les auteurs n’aient pas 
prévu une option pour implanter ces 
programmes sur microdrive. Cela aurait 
été très simple pour eux, alors qu’il est 
difficile de le faire soi-même. Il faut une 
bonne maîtrise du Spectrum et de son 
langage, et débusquer une à une les mul- 
tiples embüûches (programme Basic 
immergé sous forme de codes, codes de 
couleurs dans la liste du programme, 
désamorçage de la touche BREAK, 
etc.). Mais si on y arrive, quel agré- 
ment ! 


L'effet 


cinématographique 


Après la démonstration, 3D Mover 
est enfin tout à soi. Un menu de neuf 
options est proposé (dont la copie 
d’écran sur l’imprimante Sinclair, qui 
n’est pas répertoriée dans la notice). 


Pour créer une figure, l’option 1 
demande d’introduire une à une les trois 
coordonnées de points dans l’espace, en 
précisant si ce point doit être ‘“‘PLOTé’? 
ou bien relié par un trait au point pré- 
cédemment défini (DRAW). Tout en 
introduisant les points ou vecteurs, on 
a la possibilité, au moyen des dix tou- 
ches de chiffres et de Q et W, de posi- 
tionner la figure que l’on est en train de 
définir pour une meilleure visualisation. 


De retour au menu, vous pouvez 
demander l’option Modification d’un 
vecteur ou celle permettant de lister les 
vecteurs sur l’écran ou l’imprimante. 


Deux options du menu servent à la 
communication avec le magnétophone, 
pour charger ou sauvegarder une figure. 
C’est un point qu’il vous faudra modi- 
fier si vous voulez adapter le pro- 
gramme aux microdrives. 


L'option Continuer une figure permet 
de continuer la définition des vecteurs 
d’une figure et poursuit l’introduction 
des vecteurs après le dernier défini. 


Avec Utiliser 3D Mover, les 12 tou- 
ches précédemment citées vous entraî- 
neront en pleine animation, par des 
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Une création ‘maison’ 


rotations autour des trois axes, combi- 
nées ou non, des translations droite gau- 
che, haut bas, avant arrière. Au cas où 
vous perdriez la figure au-delà de votre 
écran, l'option Modification du cadrage 
vous invite à faire une remise à zéro des 
variables de position (RAZ) ou à redé- 
finir les coordonnées du centre de rota- 
tion (SYM). 


La particularité la plus importante et 
passionnante de l’utilisation de 3D 
Mover est la possibilité d’enregistrer en 
mémoire (jusqu’à saturation de celle-ci) 
les mouvements de votre figure. Ceux- 
ci seront alors à votre ordre, restitués à 
bonne cadence (‘‘cinématographique””’). 
Vous pouvez même n’enregistrer qu’une 
image sur deux, trois, …., pour obtenir 
un effet d’accéléré. 


Le programme 3D Basic se charge en 
cinq parties dont un affichage écran et 
deux pour la démonstration. Pour les 
utilisations ultérieures de 3D Basic, il 
vous faudra patienter un peu car la 
démonstration vous sera encore impo- 
sée, avec un temps de chargement long. 


Néanmoins, après la démonstration, 
il y a une réinitialisation par un NEW. 
Rassurez-vous, le code machine de 3D 
Basic est bien protégé au-dessus de 
RAMTOP et l’accès se fait par RAN- 
DOMIZE USR 63490. 


Les vecteurs utilisables par 3D Basic 
sont préalablernent définis et sauvegar- 


Le logiciel en quelques lignes 
Nom : 3D Mover 
Ordinateur : ZX Spectrum 
Forme : Cassette 
Edité par : Ere Informatique 
Prix public : 180 FF 
Principale orjentation : graphisme en trois 
| dimensions ‘ 


dés sur bande par 3D Mover. L'adresse 
d’implantation de ces vecteurs peut être 
variable mais doit être précisée en ini- 
tialisant une variable Basic DEFOB. 
D’autres variables Basic peuvent être 
définies pour commander l’animation 
d’une figure par 3D Basic : les coordon- 
nées de l’observateur, les arguments des 
rotations, le centre de rotation. Il est 
aussi possible de définir une fenêtre 
d’écran dans laquelle la figure s’ani- 
mera. Les autres points de l’écran res- 
teront invariants. Ceci permettra donc 
d’animer alternativement plusieurs figu- 
res sur l’écran en remplaçant à chaque 
fois les pointeurs par ceux de la figure 
à animer. 


Espace 


et mouvement 


Les possibilités de 3D Basic sont donc 
très larges et ouvertes. C’est votre pro- 
gramme Basic qui animera la ou les 
figures dans les directions définies par 
vous-même. 


A noter que trois des feuillets de la 
notice vous donnent quelques éléments 
de géométrie tridimensionnelle pour 
vous aider à diriger votre figure par le 
Basic. 


En conclusion, 3D Mover vous 
ouvrira de façon simple l’univers de la 
troisième dimension. Il vous aidera à 
mieux percevoir ce que peut être la pro- 
jection sur un écran d’un objet défini 
par ses trois dimensions et cela quel que 
soit le point de vue. 3D Basic vous lais- 
sera l'initiative de l’animation, de façon 
moins rigide qu’avec 3D Mover, en vous 
permettant d’incorporer des animations 
dans vos programmes Basic. 


On peut regretter qu’il n’y ait pas 
d’option d’élimination des traits cachés. 
mais là, le problème est plus complexe. 


Ces logiciels de bonne qualité permet- 
tent de comprendre une certaine vision 
des choses parfois difficile à appré- 
hender. 


Benoît THONNART 
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LES COUPS D'ŒIL DE LIST 


UNE AIDE 


ASTER 64 se présente sous la forme d'une 

disquette protégée par une clé 
électronique. C’est un ensemble d'aide à la 
programmation qui est livré avec une 
documentation de qualité (150 pages). Le public 
visé n’est pas celui des débutants. Générateur 
d'écrans, générateur de fichiers, extension du 
Basic, moniteur, etc., le tout est impressionnant 
de possibilités et devrait combler les 
programmeurs chevronnés ou professionnels du 


Commodore 64. 


On ne fait pas de la navigation de 
plaisance avec un porte-avions, ni 
de balade dominicale avec une 
moissonneuse-batteuse. Pourquoi ? 
Parce que ce sont des outils de travail 
destinés à l’amiral ou à l’agriculteur. 


Master 64 est, lui aussi, un outil de 
travail. Il est avant toute chose destiné 
aux professionnels qui créent des pro- 
grammes d’application. 

Un client vous demande un fichier 
bien spécialisé pour gérer un terrain de 
camping, des cultures en laboratoire, ou 
une bourse d’échange de coquillages. Ce 
client n’a rien d’un analyste, ni d’une 
opératrice de saisie, et il lui faut un pro- 
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gramme où les données soient faciles à 
entrer, où des messages d’aide puissent 
apparaître et disparaître au bon 
moment, où les erreurs possibles soient 
prévues et rattrapables. 


Ce programme, vous allez le lui ven- 
dre. Comme vous ne souhaitez pas qu’il 
se le rembourse en vendant sous le man- 
teau (avant de rire sous cape) des copies 
clandestines, vous voudrez que ce pro- 
gramme soit protégé. 


Vous, concepteur professionnel, 
aurez donc dans ce cas un certain nom- 
bre de problèmes précis à résoudre. Si 
vous travaillez sur un Commodore 64 
depuis trente ans déjà, aucune des ficel- 


MASTER 64 


A LA PROGRAMMATION 
POUR COMMODORE 64 


les ne vous sera étrangère, et en assem- 
blant (rien ne se perd) des bouts de pro- 
grammes que vous avez déjà faits, vous 
arriverez sans doute à un résultat 
satisfaisant. 


Mais si, par hasard, tel n’était pas 
votre cas, il faudrait que vous consacriez 
un temps certain à explorer les mémoi- 
res mortes du C. 64 pour y découvrir les 
itinéraires optimaux. 


Protection par 


clé électronique 


Je ne pense pas trahir la pensée des 
créateurs de Master en disant qu’ils vous 
apportent ici sur un plateau toute leur 
science d’experts. 


Un exemple, avant d’examiner le 
« concept » de face, de profil et de 
trois-quarts : quiconque à un peu ramé 
dans le SED (Système d’Exploitation 
des Disquettes) de Commodore a eu un 
petit pincement au cœur en se lançant 
dans l’accès direct à un secteur de la dis- 
quette. Il a potassé la syntaxe d'OPEN- 
dièse, du BLOCK-READ et du 
BLOCK-WRITE, compté et recompté 
ses pointeurs, posé 255 et-je-retiens-zun, 
et perdu quelques Ko de précieuses 
informations par erreur de jeunesse ! 
Sous Master, vous n’ouvrez rien, VOUS 
ne fermez rien, vous frappez trois ins- 
tructions, et il s'occupe du reste. Que 


N° 8 - AVRIL 85 


É 


contient le secteur 1 de la piste 18 ? 
Vous frappez en mode direct si vous 
voulez : 

INBLOCK 18,1: TAKBUF A$,0,255: 
PRINT Af$, et c’est tout. Mais commen- 
çons par le commencement. 


C’est en 1981, au Sicob, si mes sou- 
venirs sont exacts, que Micro Applica- 
tion présentait à un public perplexe le 
concept Master sur CBM 8000. Une ver- 
sion 4000 existait aussi, bientôt suivie 
d’un Master II. Aujourd’hui, sur vos 
écrans, le retour de la revanche du fils 
du pont de la rivière Kwaï, entendez 
Master 64 dernière mouture : un clas- 
seur corail au format AS contenant une 
disquette, une clé électronique, et 150 
pages d’explications. 


Car Micro Application recourt au 
système de protection de son pro- 
gramme par clé électronique. La protec- 
tion est un sujet qui a fait couler beau- 
coup d’encre et tout a été dit ou pres- 
que. Il reste que la clé électronique a ceci 
de bon qu’elle permet à l’utilisateur de 
faire autant de copies de sécurité du pro- 
gramme qu’il le souhaite, et c’est là un 
excellent point. Évidemment, comme 
ces copies ne peuvent tourner qu’en pré- 
sence du « dongle » (un mille-pattes sur 
un bout de circuit imprimé qui se bran- 
che sur le port cassette), on évite l’ap- 
parition d’une diffusion sauvage. D’au- 
tres constructeurs prévoient une clé 
mâle/femelle, qui permet de conserver 
l’usage du magnétophone. Celle-ci est 
close. Tant pis. 


Une petite 


démonstration ? 


Quatre chapitres, Master Screen, 
Master Print, Master File et Master 
Basic, vous font découvrir les quatre 
talents de société du programme : la 
génération d’écran, la génération d’édi- 
tion, la génération de fichiers et un Basic 
gonflé à bloc ; sans préjudice du Basic 
4.0 (à la suite de quelle retombée en 
enfance Commodore l’a-t-il abandonné 
sur le 64?) et d’un petit moniteur 
langage-machine réduit, mais qui a le 
mérite d’être là. 

Sur la disquette, deux programmes 
Master avec leurs chargeurs, l’un suf- 
fixé « D » et destiné au développement 
des programmes, l’autre suffixé « U » 
et destiné à l’utilisateur des program- 
mes. C’est ce dernier qui figurera sur la 
disquette du produit fini que vous 
proposerez. 


Pour qui découvre Master, des pro- 
grammes de démonstration montrent 


N° 8 - AVRIL 85 


COUP D’OEIL SUR MASTER-64 


EN 
Hhont 


UNE PAGE-ECRAN ECRITE ET SAUVEGARDEE 


AVEC 


no es 


\ 
N—, | 


(, 


PROSCREEN 


Proscreen : un éditeur d'écran particulièrement perfectionné. 


l’effet des nouvelles commandes, mais 
le programme de test m’a presque paru 
plus démonstratif. 


Pour le concepteur, toujours, un uti- 
litaire de copie de fichiers et un de Bac- 
kup (copie de sécurité) reproduisant une 
disquette secteur par secteur, moyen- 
nant de fréquentes manipulations. 


Pour l’utilisateur final, pas question 
de lui compliquer la vie en lui deman- 
dant de charger Master, de le lancer, 
puis de charger le ou les programmes 
que vous aurez mis au point pour lui. 
Il faut que tout s’enchaîne. Mais là 
encore, le concepteur n’aura pas à cher- 
cher de solution, c’est prévu : le char- 
geur du programme-utilisateur chargera 
bien entendu les deux parties de Master 
proprement dit, mais il cherchera aupa- 
ravant une page de titre, nommée Page 
64, que vous aurez composée et qui fera 
une jolie image à se mettre sous l’œil le 
temps que le reste entre en mémoire. De 
plus, quand tout le système sera en 
place, ce même chargeur lancera auto- 
matiquement l’exécution d’un pro- 
gramme de Boot que vous aurez pré- 
paré, afin d’appeler votre application. 

Tout a donc été préparé pour qu’un 
simple LOAD et un simple RUN suffi- 
sent à l’utilisateur final. Enfin, LOAD 
et RUN plus une minute cinquante pour 
charger Master, plus le temps de char- 
ger le programme que vous aurez mis au 
point. Un logiciel comme Mercure, (une 
gestion de fichier développée sous Mas- 
ter par Micro Application) ne met pas 
moins de deux minutes trente-quatre à 
se charger avant de pouvoir opérer. 
C'est un peu lourd, mais la faute n’en 
revient pas à Micro Application. L’unité 
de disquette 1541 a sur les cassettes 
l’avantage de l’accès direct, mais pas 
vraiment celui de la rapidité. 


Master Screen, le générateur d’écran, 
reprend les instructions de Tool (voir 
l’article de Jacques Deconchat dans le 
numéro 1 de LIST, page 40). Pour le 
programmeur, les instructions de mise 
en page permettent de tracer de petites 
boîtes sans compter sur ses doigts, mais 
ce sont surtout les instructions de saisie 
qui trouveront ici leur plein emploi : 
convenablement utilisées, elles permet- 
tent d’éviter à l’utilisateur le moins 
expérimenté tout risque d’erreur et d’ar- 
rêt du programme. Les instructions de 
gestion de page-écran, quant à elles, 
permettent, comme leur nom l’indique, 
de préparer en mémoire des pages-écran 
numérotées de 1 à 127 et de les appeler 
une par une au moment voulu. Comme 
il s’agit d’un simple transfert de 
mémoire, l’opération est extrêmement 
rapide. On peut aussi appeler des écrans 
préalablement stockés sur disquet- 
tes,mais là on me pardonnera de ne pas 
m'étendre sur le temps d’accès. 


Avec une modestie touchante, le 
manuel d'instructions cite, sans déve- 
lopper, le programme Proscreen présent 
sur la disquette, un éditeur d’écran par- 
ticulièrement perfectionné, permettant 
de manipuler avec une grande facilité les 
formes et les couleurs, grâce aux tou- 
ches de curseur et aux touches de 
fonction. 


Equivalent « gutenberg-ien » d’un 
Master Screen cathodique, Master Print 
permet à l’utilisateur averti de remplir 
comme en se jouant le formulaire admi- 
nistratif le plus vicieux. De même qu’à 
l’écran on pouvait prévoir des zones de 
saisie ou de sortie de données, de même, 
ici, on peut créer et mettre en boîte un 
format d'impression selon un schéma 
préétabli, que viendront remplir ensuite 
les données prélevées sur un fichier. Que 
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Le même masque 
tel qu'il apparaïit 
à l'utilisateur 


demandez de plus ? Là encore, un tel 
luxe ne se justifie que pour un usage 
professionnel, mais si votre bien-aimé 
Directeur des Ventes, pris d’une rage 
créatrice funeste, modifie tous les 
quinze jours la disposition des imprimés 
de la boîte, vous échappez au surmenage 
ou la calvitie précoce : vous n’aurez que 
le fichier-format à modifier. 


Moi-même-personnellement-tout-seul- 
je-pense-que, et d’ailleurs je le partage, 
un C.64 qui aurait en mémoire morte le 
Basic revu et corrigé par Master ferait un 
malheur sur le marché. 


Le Basic 4.0 est là, avec son DIREC- 
TORY qui ne détruit pas le programme, 
ses DSAVE et DLOAD sans suffixe 8, 


Le logiciel en quelques lignes 
Nom : Master 64 
Ordinateur : Commodore 64 
Forme : disquette avec clé électronique 
Edité par : Micro Application Software 
Distribué par : Procep 
Prix public : 550 FF 
Principales orientations : génération 
d'écran, génération d'édition, génération 
de fichiers 


Autres orientations : extension du Basic, 
moniteur 
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ses DOPEN et ses DCLOSE, ses 
SCRATCH, HEADER, COLLECT, 
APPEND, CONCAT, COPY et autres 
RENAME qui relèguent aux oubliettes 
les DOS-SUPPORT, WEDGE et l’ou- 
verture du redoutable canal 15, sans 
parler des messages d’erreur en mode 
direct sur un simple PRINT DSS$. 


Une richesse 


impressionnante 


Outre les instructions façon Tool, on 
trouve les opérations en multiprécision, 
GOTO et GOSUB calculés, inversion 
majuscules/minuscules, l’accès direct 
susmentionné, le NOLIST (un pro- 
gramme enregistré avec NOLIST au lieu 
de SAVE provoque un RESET si l’on 
tente un LIST : le curieux se décourage 
vite), un contrôle de date et la recher- 
che de caractères dans une chaîne. 


Ce n’est pas tout. Pour le même prix, 
on trouve aussi EDEX, (comme Tool), 
avec AUTO, DELETE, RENU, 
DUMP, ERROR, FIND, HARD- 
COPY, PLOT, RESET, PRINT 


USING, IF-THEN-ELSE, TRACE, et 
une désactivation de la touche STOP sur 
un bête POKE 1001,1. 


Bref, un superadditif comme dans les 
poudres à laver (faites chanter le Basic 
de votre 64 !) et sans lequel on a l’im- 
pression de faire décoller Concorde avec 
un élastique. 


Mais le point fort de Master, et sans 
doute sa raison d’être, ce sont les ins- - 
tructions relatives aux fichiers. Vingt 
instructions supplémentaires, six varia- 
bles réservées, et vous voilà débarrassé 
des basses besognes du programmeur 
pour pouvoir vous concentrer sur les 
nobles tâches de l’analyste. Si vous avez 
une formation classique, la traduction 
d’un organigramme tant soit peu 
détaillé se fait presque naturellement, 
dès que vous avez absorbé le vocabu- 
laire nouveau qui vous est proposé. Un 
ONERROR consacré aux messages dis- 
ques vous permet de faire face à toutes 
les situations. Cela ne veut pas dire qu’il 
s’agisse d’un programme de fichier tout 
prêt : tel n’est pas le propos des auteurs, 
et vous devrez vous-même organiser vos 
rubriques, créer vos tris, utiliser les clés, 
c’est votre problème. 


La gestion de fichier Master File a 
pour origine; dit le manuel, la méthode 
séquentielle indexée (ISAM). C’est à 
vous de définir, de créer et de prévoir 
l'utilisation du fichier grâce à vingt ins- 
tructions supplémentaires et six varia- 
bles réservées. De plus, une collection 
de programmes utilitaires vous permet 
non seulement, bien sûr, de définir un 
fichier, mais aussi de lire une mémoire- 
tampon ou le contenu d’un fichier sous 
forme de dump-hexa, de vérifier le 
numéro de série de Master (pour pro- 
voquer un RESET en cas de non- 
conformité, par exemple), de transférer 
le contenu d’un fichier vers un canal de 
sortie (édition brute de données sur 
imprimante), de transférer un fichier 
séquentiel sur un fichier Master (utile 
quand on veut restructurer un fichier 
prévu trop juste), et de régénérer les 
tables d’index. 


En équilibre sur le bord du clavier, un 
verre d’eau chante : deux comprimés 
d’aspirine y pétillent gaiement, maïs je 
viens de vivre une aventure. Le petit 
classeur corail se referme à regret. Ah, 
si j'étais pro ! 


D'un intérêt limité pour les informa- 


ticiens du dimanche, Master semble être 


pour des professionnels chevronnés un 
investissement rentable leur permettant 
de créer un logiciel aussi sophistiqué 
qu’ils le voudront, mais directement uti- 
lisable par des débutants. 


François J. BAYARD 


LES COUPS D'ŒIL DE LISTE 


LOGOMONDE 


POUR TO 7/TO 7-70 


OGOMONDE est un manuel de 80 pages 
accompagné d'une cassette de programmes 


Logo tout prêts pour TO 7 et TO 7-70. Après l'avoir 


testé à plusieurs niveaux (enseignants dans leur 
classe et en formation, enfants, programmeurs), 
nous retenons que Logomonde fait partie des 
quelques documents Logo à posséder, même sans 
matériel Thomson. Hatier aura-t-il la bonne idée 
de le traduire pour les autres versions de Logo ? 


Hal Pour un spécialiste de la pédago- 
gie Logo, le premier réflexe est de 
penser que Logomonde est le type de 
documents à ne pas faire. Les program- 
mes Logo, en effet, se construisent à 
partir de projets personnels. Dans cette 
optique, donner aux enfants des pro- 
grammes tout faits n’est pas souhaita- 
ble. Et pourtant. 


Des réactions 


différentes 


Dans le cadre d’une école, nous avons 
pu constater que Logomonde déclen- 
chaïit deux réactions très différentes. La 
première est celle de l’instituteur ayant 
bien compris la pédagogie Logo. Il a uti- 
lisé le livre en essayant de trouver dans 
les exemples proposés des programmes 
analogues à ceux que ses élèves avaient 
réalisés. Cela lui a permis de leur pré- 
senter une autre approche ou une exten- 
sion de leurs propres projets. 


La seconde réaction est celle de l’ins- 
tituteur concevant l’ordinateur comme 
un moyen de faire de l’enseignement 
assisté par ordinateur. Après avoir sélec- 
tionné quelques programmes donnés 
aux élèves consommateurs, il s’est 
aperçu que les élèves pouvaient aussi 
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devenir autonomes en programmant 
eux-mêmes avec Logo grâce à la liste 
accompagnant chaque exemple. 


Pour les enseignants en formation, 
Logomonde est un document « rassu- 
rant ». Les adultes ont envie de maîtri- 
ser rapidement Logo. Souvent, quand 
ils débutent, ils ont l’impression de per- 
dre leur temps en réalisant des projets 
simples. Ils sont mieux disposés à pro- 
gresser pas à pas lorsqu'ils ont feuilleté 
le livre de Logomonde. De plus, certai- 
nes pages sont très pédagogiques. L’or- 
dre dans lequel sont proposées les pro- 
cédures est un élément important : il a 
été bien pensé. 

Côté programmation, nous rencon- 
trons un problème inhérent à la presque 
totalité des documents écrits : les fau- 
tes de frappe, et parfois même les lignes 


Le logiciel en quelques lignes 
Nom : Logomonde : 
Ordinateur : Thomson TO 7 / TO 7-70 
Forme : cassette et livret 
d'accompagnement 

Auteurs : M. Bonneton, G, Godimier et 
À, Pré 

Edité par ; Hatier 

Prix public : 185 FF 

Principale orientation : utiliser Logo 
grâce à des programmes commentés 


manquantes... D’une façon générale, les 
espaces — qui sont un signe au même 
titre qu’une lettre dans les programmes 
Logo — ne sont pas assez marqués 
typographiquement. De plus, les erreurs 
semblent s’être donné rendez-vous à cer- 
taines pages (principalement pages 32 et 
33). Pour éviter de tels inconvénients, 
il auraït sans doute été préférable de cli- 
cher une véritable liste de chaque 
procédure, telle qu'elle sort de 
l'imprimante. 

Si l’on met de côté ces quelques 
griefs, la présentation du produit est 
agréable, la mise en page est excellente 
et la progression bien étudiée. Logo- 
monde est donc un document utile, 
même pour ceux qui n’ont pas de 
machine ou ceux qui ont une machine 
autre que le TO 7 / TO 7-70. 

Peut-être même Hatier serait-il bien 
inspiré de commercialiser le livre seul, 
ou mieux, une série de livrets reprenant 
les différentes versions du Logo car ce 
langage n’est pas l’apanage du seul 
Thomson, et le parc d’Apple, Commo- 
dore, Amstrad et autres matériels 
« Education nationale » est loin d’être 
négligeable lorsque le produit est bon. 
À moins de s’en tenir à un Logomonde 
Thomson et un dictionnaire Logo, 
Ouvrage en cours d’édition dont nous 
reparlerons dans un prochain numéro. 


LIST - PAGE 47 


LES COUPS D'OEIL DE LIST 


HADÈS 


VEC la cassette Hadès, Êre Informatique 
propose un ensemble cohérent de logiciels 
(assembleur-désassembleur, moniteur, sourceur, 
débogueur) conçus pour la programmation en 
Assembleur et en Langage-Machine. 


En pratiquant Hadès 1.0, on 

s’aperçoit qu’il est possible de pro- 
grammer en Assembleur avec presque 
autant de confort qu’en Basic. 

Comme cela se passe pour tous les 
langages symboliques, un programme 
écrit en Assembleur (programme- 
source) doit nécessairement être traduit 
en Langage-Machine (programme- 
objet). Et c’est ici que la traduction en 
deux passes prend tout son intérêt : on 
peut, avec Hadès, utiliser pratiquement 
tous les types de labels (jusqu’à huit 
caractères), y compris les labels locaux 
qui prolifèrent vite avec ce genre de 
langage. 

On retrouve en nombre réduit les 
commandes les plus connues : Liste ni, 
n2 pour lister le programme ou une par- 
tie du programme, Insert nl ou Insert 
seul pour insérer à la suite, Delete n1, 
n2, Modifie n1, n2. On ne tape que la 
ou les deux premières lettres (qui figu- 
rent ici en majuscules) suivies des numé- 
ros de ligne. On trouve aussi quelques 
commandes simplifiées mais particuliè- 
rement utiles : Save, LOad et Merge 
pour sauvegarder, charger ou fusionner 
des programmes sources, et BSave pour 
le langage-machine (objet du pro- 
gramme). Pour ces quatre derniers 
ordres, la vitesse lente est possible en 
option. Notons encore Print qui 
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imprime tout ce qui est affiché à 
l'écran : bien pratique, sinon indispen- 
sable, dans le cas des programmes 
longs. 


Pour faciliter encore la programma- 
tion ou la mise au point, Hadès offre 
un éditeur plus performant et plus 
rapide que l’éditeur Basic : répétition 
accélérée des touches, recopie de la ligne 
au-dessus, recopie du reste de la ligne 
avec ou sans validation, utilisation des 
flèches, Ctrl-A, etc. 


Il est agréable de constater que, pra- 
tiquement, la seule contrainte dans 
Pécriture d’une ligne est le caractère 
espace obligatoire pour distinguer le 
label de l'instruction qu’il désigne. Tout 
commentaire est introduit avec un 
point-virgule. 


Cet Assembleur offre aussi des 
pseudo-instructions qui le rendent pro- 
che d’un grand Assembleur : origine et 
adresse du programme ou d’un label, 
réservation de mémoire à l’intérieur du 
programme, entrée de code ou de texte 
et tables d’adresses. 


Bien entendu, la commande la plus 
importante est Asm qui provoque l’as- 
semblage. La première passe traduit les 
labels et les changements d’origine. A 
l'issue de la seconde passe, on dispose 
du programme-source et soit du 


POUR ATMOS ET ORIC-1 


programme-objet, soit (personne n’est 
à l’abri des bogues) d’un ensemble de 
messages d’erreur en clair. Quand tout 
est au point, Exec suivie d’une adresse 
lance l’exécution du programme-objet. 


Par ailleurs, l’ Assembleur peut ren- 
voyer à un programme Basic pour lequel 
le logiciel réserve 200 octets libres. Le 
retour à l’ Assembleur se faisant par le 
signe du point d’exclamation, ce qui 
rend malheureusement impossible l’uti- 
lisation des microdisques. Pour ma 
part, il n’y a que l’Assembleur qui 
m'’oblige à travailler encore avec des 
cassettes. 


Un moniteur 


très complet 


A côté de l’ Assembleur proprement 
dit (que les auteurs ont d’ailleurs enri- 
chi d’un mini-moniteur très simplifié 
mais suffisant), Hadès comporte égale- 
ment un moniteur nettement plus 
important qui permet d’exploiter des 
programmes déjà écrits. 

Ce deuxième logiciel peut être chargé 
en même temps qu’un autre pro- 
gramme. Pour bien l’utiliser, il est 
nécessaire d'apprendre dans un premier 
temps le langage codé assez complexe de 
ses commandes. Ce moniteur est lui- 
même très complet et d’une utilisation 
facilitée par un éditeur aussi performant 
que celui de l’ Assembleur. 

On trouve comme principales 
fonctions : 

1. L'exploitation de la mémoire : visua- 
lisation, modification, recherche et 
déplacement de mémoire. A noter que 
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emple d'exécution 


Cruber&Bockelee 


ASM hades j.0 
:E 
10 DIM PR$i3,3) 


30 CäLL #$000 
4Û PRINT "adresse tableau "DEEK(2) 


tL 


l ORG $9000 ; (call) 

2 LDX $9E ; pointeur- 

3 LDA $9F ; tableaux 

4 TAbleau STX #2 ; range 

5 STA #3 ; dans D 

6 LDY ##0 ; charge 

7 LDA 4$23,1 ; fer octet 

8 INY 

ç CMP #0 ; compare 
10 BNE SUivant; si <? 
11 LD (#$2),7 ; Ze actet 
12 CMP $1 ; compare 
13 BEG Fin ; si trouve 
14 SUivant INY 

15 LDA &42),Y ;ipointeur 
lé CLÉ, 4 offset 
17 ADC #2 ; + sur 02 
18 TAX ; (pointe 
19 INY ; tableau 
20 LDA ($2),Y ; suivant) 
21 ADC #3 ; + sur 03 
22 BCC TAbleau 

23 Fin RTS ; retour Basic 
‘À 


FIN DE LA PASSE 1! 
Fin des labels:#2AÂ6 
000 Î ORG $9000 ; (call) 
FIN DE LA PASSE 2 
Sortie des labels ? 
TAâbleau =$9004 SUivant =+#9017 
Fin =#9025 

FIN= $902é6 
:B 
Ready 
RUN 
adresse tableau = 1373 


On reconnaîtra dans la liste, successivement : 
. une partie Basic avec réservation d’un tableau et 
appel de la séquence en langage-machine ; 

< une partie en Assembleur suivie de l’assemblage et 
des labels ; 

e l'exécution du programme (recherche de l’adresse 
du tableau PR$ dans la mémoire centrale). 
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CAPS 


20 OCOKE O,ASCI"P") 42564 ASC" R") +128) 


le mnémonique de la commande est 
placé derrière les données manipulées. 
2. Un Assembleur simplifié à une passe 
(sans possibilités d’utiliser des labels). 
3. Un débogueur qui exécute les pro- 
grammes pas à pas. 

4, Un sourceur enfin qui, à l’inverse de 
l’Assembleur, convertit un programme 
en langage-machine, en un texte Assem- 
bleur. Il utilise deux passes dont la pre- 
mière crée des labels. De plus, le 
programme-source est automatique- 
ment stocké sur cassette. 


Si le manuel d’emploi est assez 
détaillé (une quarantaine de petites 
pages), quelques points délicats man- 
quent de clarté. Toutefois, après une 
bonne lecture, on s’y retrouve. 


En conciusion, on peut conseiller 
Hadès aux programmeurs qui désirent 
s’attaquer sérieusement à l’ Assembleur. 
Le prix, environ 250 FF, est justifié en 
regard des services que ce logiciel peut 
rendre. 


Le logiciel en quelques lignes 
Nom : Hadés 1.0 un 
Ordinateur : Atmos/Oric-1 
Auteur : F. Bochelée et O. Gauber 
Édité par : Êre Informatique 


Prix public: 250 FF 

Principale orientation : programmation en 
Assembleur et en langage-machine 
{assembleur-désassembleur, moniteur, sour- 
ceur, débogueur) 


Terminons en signalant que la couleur 
retenue pour l’affichage ne sera pas du 
goût des utilisateurs d’écrans noir et 
blanc : le rouge, en effet, ne passe pas 
très bien... Aucun problème en revan- 
che sur un écran couleur. 


Max:HAGENBURGER 
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DU PB-700 À L'APPLE Ile 


UN PROGRAMME 
SOUS LES FLASHES 


RANSPOSER un programme de l’Apple Ile au PB-700, ou le contraire, 
c’est une idée qui peut paraïtre saugrenue, mais cela s'avère parfois 
nécessaire, Ces deux machines ont bien peu de points communs, 
l'essentiel est qu’elles « parlent » l’une et l’autre le Basic. Pour ts 
mettre en lumière certains des problèmes posés par une telle transposition, 
on a choisi ici un programme destiné aux photographes amateurs. 


Les problèmes rencontrés lors de 

la transposition d’une machine à 
une autre sont de plusieurs types : lan- 
gage, configuration, mémoire, vitesse, 
possibilités de calcul, affichage, etc. 
Ceci reste vrai pour la transposition 
d’un programme de l’Apple Ile au 
PB-700. Le programme qui sert de 
cobaye ici regroupe différents calculs se 
rapportant aux nombres-guides de 
flash. 


Un menu 


à six options 


Au chapitre des points communs, on 
trouve la conception du programme. A 
ce niveau, les particularités du langage 
ou de la configuration n’entrent pas en 
ligne de compte : le programme est rela- 
tivement simple et il ne fait pas appel 
à des fonctions spéciales telles que les 
fichiers séquentiels par exemple. 


Son but est de permettre à un utilisa- 


teur de calculer rapidement les éléments 
suivants : 


. nombre-guide d’un flash, 


° diaphragme connaissant le nombre- 
guide et la distance flash-sujet, 
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Sous les flashes Re 
Programme pour Apple le 


19 FENM Auteur Pierrick Moigneau 
28 REM PROGRAMME HG FLASH Copyright LIST et l’auteur. 
EU OREM mu men mec mon anne mme 3 
49 HOME 
54 HTAÈ € 
64 PRINT "MENU PRINCIPAL HG FLASH" 
Fa  VYTAE 4 
82 PRINT "A-CALCUL DU HOMBRE-GUIDE D'UN FLASH" te 
SE PRINT ‘ 
184 PRINT "B-CALCUL OÙ DIRPFHRAGME CONHAISEANT LE HG ET LA DISTANCE" 
118  FEAINT 
124 PRINT "C-CALCUL DE LA DISTANCE ZOMHAISSANT LE HG ET LE CIAPHEAGME" 
129  PFEIHNT 
148 PRINT "O-CALCUL CU MOMBRE-GUIDE EH FOHCTION DE LA 3SEHSIEILITE" 
159 FRINT 
168 PRINT "E-CALCUL DE LA DISTANCE FLASH-SLJET EN FONCTION El HG ET OÙ 
GRAHDISSENMENT " 
179  PEINT 
188 PAIHT "F-CALCUL OÙ MOMBRE-GUIDE DE DEUX FLASHES COLUFLES* 
134  PRIHT 
É84 PRINT "YOTRE CHOIKCA, GC, DEF 57" 

GET CH 

A æ 6 ASC CCHSA + Ed 

IF Ê% à 62 OR x < 11 THEH 294 

OH x GOTO 298,416, 560,7204. 9348, La 

EM 

RENM  L'HOMBRE-GUICE 

REM mm remmnnne 

HOME 

HTRE St PRINT "CALCUL GE HOMBRE-GUIDE" 

WTAE 5 

INPUT "SENSIBILITÉ 150 CU FILM D'ESSAI ‘:S 

FRIHT 


348 
35% 
360 


INPUT "VALEUR DU DIAPHRAGME CORRECTZ “:DP 
FRINT 


INPUT "DISTANCE FLASH-SUJET?" DS 
HG = DP *# YTAE 12 
HE = HG: GOSUE 1280 
g HG = HE RER 
PRINT "HOMBRE-GUIDE DU FLASH: HG" pour "igi" 180" 
GOSUB 1259: GOTO 29 
RE 
FEM  2/CIAPHRAGME 
REM en 
PEN 
HOME : HTAB 5 
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458 PRINT "CALCUL DU CIRAPHPRAGME" 
469  VYTAB 5 

474 INPUT "NOMERE-GUIDE? 0: MG 

490  FRIMT 
434 INPUT °C 
S8A DPF = HG / D 

518 HE = DPF: GOBUE 128@ 
Seg DPF = HE 

239 FRINT 

549 PRINT "OIAPHRAGME : 


TANCE FLASH-SUJET?";DS 


“OP: COSUE 1254: COTO : 


558 REM 
REM S'DISTRHCE 
REM — 
HÔME 
HTRE 5 | 
PRINT "CALCUL DE DISTANCE" 
YTAE 5 
IHPUT CHOMBRE-GUIDET ‘: HG 
PRINT 
INPUT "OIRFHRAGNE DESIRE? “:DP 
DS = NG - DF 
NE = DË: COSUB 1280 
HE 
FRIHT 


PRINT MDISTANCE FLASH-SUJET: "iDSi" metres" 
GOSUB 185%: GOTO 24 

FEM 

REM  4/SENSIBILITE 

BEM 

HOME 

HTRE 5 

FRIHT "CALCUL DE HG SELON SENSIBILITE" 
YTAE 5 

INPUT "SENSIBILITÉ 160 DE DEPART?" 61 
PRIHT 


INPUT UHOMBRE GUIDE CORRESPONDANT? "HG 
FRIHT 

IHFUT eur SEMSIRILITET ":S2 
HE = HG # € R Se “ S12) 
HE = HE: GO 5e 
HE = HE 

PRINT 

PRINT "HOMBRE-GLIDE POUR "iS3;" 160 
GOSUR 1250: GOTO 2 

FRENM 
FEM 
F'EM 
HOME 
3 PRINT "CALCUL DISTANCE FLRS 
DU HOMBRE-GUIDE" 
240 YTAB 53 
350 INPUT "HOMBRE-GUIDE C0 FLASH?" :NG 
368 PRINT 
SF9 INPUT "CIAPHRAGME SOUMAITE? "OP 
5 PRIHT 
293 INPUT "GRANDISSEMENT?":G 

1088 DS = MG # 10945 + CDP # cG + 1353 
1919 YTAE 1E 
GER ME = DS: 
1434 DS = HE 


"ie 


3-GRAHDI 


SUJET EH FONCTION CU GRANDIS 


SEMEHNT ET 


GOSUR 128 


14% PRINT "DISTANCE FLASH-SUJET: ":DS:" Centimetres" ! 
1958 GOSUE 1259: GOTO 28 î 
1869  REM 

1874 FEM S-FLASHES 

LAB REM 

1924 HOME 


1198  HTAB 5 

1113  FRINT "CALCUL OÙ HG DE DEUX FLASHES COUPLES" 
1184 VTAE 5 

1138 INPUT "HG FLASH HC1 7":h1 

1149 PRINT 

1154 INPUT °MHG FLASH HECZ T': He 

1169 NG =  SOR COHI # M1 + CHE # NZ“ 


FRIHT 
HE = HG: GOSUE 1220 

HG = HE 

PRINT "MOMBRE-GUICE RESULTANT: "3: HG 
GOSLIE 1254: GCOTO 28 

FEM 

FE SOUS PROGRAMME GE TEMPORISATION 
FEM  — _…—— mn 


FOR I = 1 TO Sÿü@: HEXT Il: RETURH 
EHC: 

FEM 

FEM  SOUS-PROGRANNE DE FORMATAGE 
FEM — 


INT CHE # 1: 
E # 18 
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e distance flash-sujet pour un dia- 
phragme et un nombre-guide donnés, 
< nombre-guide en fonction de la sen- 
sibilité du film, 

e distance flash-sujet pour un dia- 
phragme et un grandissement donnés, 
e nombre-guide de deux flashes cou- 
plés. 


Chaque calcul est réalisé à l’aide de 
formules classiques dont la principale 
est celle-ci: nombre-guide = dia- 
phragme X distance (le nombre-guide 
sert à définir la puissance d’un flash de 
type amateur). 


Les six calculs sont indépendants, 
chacun d’eux forme un petit programme 
séparé que l’on choisit avec un menu. 


La structure va donc être très claire : 
un menu propose six options ; chaque 
option appelle un calcul différent ; l’uti- 
lisateur obtient le résultat voulu après 
avoir fourni les données numériques 
nécessaires ; ce résultat s’affiche quel- 
ques secondes, puis l’on revient au 
menu. 


Sur Apple, le menu ne pose pas de 
problème particulier : le positionnement 
du titre et de la première ligne sur 
l'écran se fait par les instructions HTAB 
et VTAB, tabulation horizontale et 
tabulation verticale, allant de 1 à 24 
pour VTAB et de 1 à 40 pour HTAB (de 
1 à 80 avec la carte 80 colonnes). Le 
nom de ces instructions peut varier d’un 
matériel à l’autre (LOCATE, CUR- 
SOR, etc.), mais ces fonctions existent 
obligatoirement dès lors qu’il y a plus 
d’une ligne d’affichage. 


Les textes de nos six options possibles 
tiennent sans problème sur l'écran ; 
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DU PB-700 À L'APPLE I 


chacun d’eux est précédé d’une lettre 
(A, B, C, D, E, F) servant à faire le 
choix. L'utilisateur n’a plus qu’à taper 
au clavier cette lettre qui est recueillie 
par l'instruction GET suivie du nom de 
la variable « réceptrice », CH$. En fai- 
sant la soustraction code ASCII de la 
lettre — 64, on obtient un chiffre com- 
pris entre 1 et 6. Ce chiffre, mémorisé 
dans la variable X, va permettre de faire 
le branchement vers les différents cal- 
culs par l’expression ON X GOTO 
< numéros de ligne >. 


Formater 


les résultats 


Pour le PB-700, ce n’est pas aussi 
simple. Il faut abréger les éléments du 
menu, car l’écran à cristaux liquides ne 
comprend que quatre lignes de 20 carac- 
tères. On doit également faire défiler les 
lignes ; pour cela on a choisi un défile- 
ment continu, dont le rythme est défini 
par une temporisation placée en sous- 
programme. 


Le choix d’une option se fait, là aussi, 
par une lettre recueillie par la pseudo- 
variable INKEY$. Cette dernière a le 
même rôle que le GET de l’Apple, 
même si la syntaxe en est un peu diffé- 
rente. Là encore, la lettre devient un 
chiffre avec l’expression : X = 
ASC(CHS) — 64. 


On peut remarquer cette fois que 
nous avons exactement la même expres- 
sion pour les deux versions. L’instruc- 
tion ON...GOTO n'existe pas sur le 
PB-700. En revanche, la disposition de 
la mémoire utilisateur en 10 zones (clas- 
sique chez Casio) se prête bien à ce type 
de programme ; nous mettrons donc la 
partie « menu » dans la zone PO, puis 
chaque programme de calcul dans les 
zones allant de P1 à P6. 


Notons au passage que, chaque zone 
fonctionnant de façon parfaitement 
autonome, les programmes pourront 
être testés séparément. 


Toujours pour le PB-700, le branche- 
ment à la suite du menu devient on ne 
peut plus simple : c’est l’expression 
GOTO PROG X qui renvoie à la zone 
de programme numéro X. 


Entrons maintenant dans les phases 
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INPUT "DIAPH.DESIRE";:DP 


18 REN *--PROGRANME NG FLASH--X 70, DSSNÈeDE 

28 CLERR :CLS 88 DS=ROUND (DS: -2) 

ne Nr é ut "DIST.FLASH-SUJET: " 

48 GOSUB 520 DIST-FE ETS 

SG'LOCATE (2, > 118 PRINT “ “iDS:" metres 

68 PRINT "A/CALCUL NBRE-GUIDE" 120 BOSUB/FROGIS 

28 GOSUB 580 L20/ "RETURN 

88 PRINT "B/CALCUL DIAPHRAGME" 7 END 

98 GOSUB 508 

O0 ER INT FC CALCUL DiétaNCes 18 REM 4/NG SELON SENSIBLTE 
119 GOSU8 500 _ . re ES 

as 

. ri A 7 48 PRINT 'NG SELON SENSIBLE" 
149 PRINT "EDIST.FL/GRANDISNT" 58 Hs “  Sensibilite 1S0 de depart 
158 GOSUB 509 î . 
168 PRINT “F/CALC.NG.2 FLASHES" 68 INPUT Qu coFresFondant : NG 
178 GOSUB 500 28 INPUT "Nouv. sensibte";S2 
180 GOT 58 88 N2=NGXCSAR(S2/S1)) 
200 X=ASCCCHS>-64 98 N2=ROUND (NZ: -2) 
219 IF XC1 THEN 50 ELSE IF X>6 THEN 5e 190 CLS 
220 G0TO PROG X 119 PRINT  NOMBRE-GUIDE " 
588 FOR I=i TO SQG:NEXT 1 12@ PRINT “pour “;3S2;5" ISO: ";N2 
519 CHS=INKEYS: IF CH$<>"" THEN 2a@ ELs 138 GOSUB PROG 8 

E RETURN 14@ RETURN 

528 END 158 END 


REM DIST/GRANDISSEMENT 


REM 1/NOMBRE-GUIDE 


D ÉRINT CALCUL NOMBRE GUIOC" 49 PRINT "DISTANCE FLASH-SUJET SELON 
5@ INPUT "Sensibte 150":S CRONDISSENEN ; 

68 INPUT "Diaph. correct";DP 58 INPUT "Nbre-suide flash 3 NG 
78 INPUT "Dist.flash-sujet";DS 29 IRON DTA Sauna tes 
8@ NG-DP*DS 2@ INPUT "“Grandissement";6 

98 NG=ROUNDCNG; -29 80 DS=CNGX180)/ CDPXCG+1 

188 CLS 98 DS=ROUND(DS; -2) 

118 PRINT "NOMBRE-GUIDE: “:NG 190 CLS 
128 PRINT 119 PRINT "DISTNCE FLAH-SUJET:" 
138 PRINT “ CPour "3S;" ISO)" 128 PRINT “ ";DS;" centimetres" 
140 GOSUB PROG 9 134 GOSUB PROG S 

158 RETURN 148 RETURN 

16Q END 158 END 


REM FLASHES COUPLES 
RENM 


18 REM 2/DIAPHRAGNE . 


4@ PRINT ‘ CALCUL DU NOMBRE-GUIDE D 


E 2 FLASHES" 


PRINT "CALCUL OÙ DIAPHRAGME" 


5@ INPUT "NBRE-GUIDE";NG 


68 INPUT “DIST.FLASH-SUJET";DS 5@ INPUT "NG flash no 1'iNI 
78 PP=NG/DS 68 INPUT "NG flash no 2'";N2 
88 DP=ROUMDCDP; -2) 28 NG=SGRCCNLKN1 2 + CN2KN22 
9e CLS 8@ NG=ROUND (NG» -2) 
188 LOCATE 8,2 SN CEE | 
119 PRINT “DIAPHRAGME: ":DP 108 PRINT "NONBRE-GUIDE TOTAL: 
128 GOSUB PROG 9 118 PRINT “  ":NG 
138 RETURN 128 GOSUB PROG 9 
14@ END 138 RETURN 

END 


REM 3/DISTANCE 


20: REU =-sresssss 19 REM Temrorisation 
38::CES 2@ FOR 1=1 TO SOG:NEXT 1 
4@ PRINT "CALCUL DE DISTANCE" 38 CLS 

INPUT "NOMBRE-GUIDE"; NG 48 RETURN 


: N° 8 - AVRIL 85 


de calcul. Au départ, changer simple- 
ment le HOME de l’Apple en CLS, 
pour le PB-700, effacera l’écran. Nous 
avons ensuite des instructions et des 
symboles très classiques que lon 
retrouve sur l’ Apple et sur le PB-700 : 
INPUT, GOSUB, SQR, etc. Ce qui 
prouve que le Basic, malgré ses innom- 
brables variantes, possède quand même 
un « tronc commun » reconnu par la 
plupart des machines. 


Les problèmes arrivent quand il s’agit 
de présenter les résultats : il faut sup- 
primer les décimales qui ne servent à 
rien pour cette application. Le PB-700, 
fort de son expérience de « super-calcu- 
latrice », propose deux solutions pour 
cela : ROUND et USING. La première 
arrondit un nombre à partir de l’endroit 
qu’on lui indique : ROUNDI(NB, — 3) 
va arrondir le nombre NB en suppri- 
mant toutes les décimales à partir de la 
troisième, et en effectuant un arrondi 
sur la deuxième. USING, utilisé avec 
PRINT, précise le nombre de chiffres 
à afficher au moyen de symboles « diè- 
ses » : PRING USING ‘‘###.##7 NB. 


Mais du côté de l’Apple, c’est le 
désert. Aucune instruction ne permet le 
formatage, il faut passer par un petit 
sous-programme pour y parvenir. La 
célèbre pomme présente là une faiblesse 


dans son Basic. Elle se fait damer le 
pion par des appareils moins chers, mais 
de conception plus récente (dans le 
même ordre d’idée on pourrait parler de 
l'éditeur de l’ Apple, qui n’est pas vrai- 
ment un modèle de simplicité). 


Temporisons, : 


temporisons … 


Maintenant que nous avons notre 
résultat et que celui-ci est formaté, nous 
voulons l’afficher quelques secondes à 
l'écran. Sur ce plan, les deux ordina- 
teurs ont la même lacune : pas de tem- 
porisation d’affichage de type WAIT ou 
PAUSE. 


Il faut donc passer par une boucle de 
temporisation, placée en sous- 
programme. Celui-ci devra être bien 
repéré par des REM : ainsi les posses- 
seurs de PC-1500 par exemple verront 
tout de suite qu’ils peuvent s’en passer 
grâce à WAIT. Attention, pour ces bou- 
cles de temporisation, il y a de grosses 
différences de vitesse de traitement d’un 
ordinateur à l’autre. Sur un Apple, 
une boucle FOR I = 1 TO 5000 affiche 


Mode d'emploi du programme NG FLASH 


La plupart des flashes sont vendus pour un nombre-guide donné à 100 ISO ; vous 


pouvez vérifier celui-ci en prenant plusieurs clichés d’un sujet de valeur moyenne à 
des diaphragmes différents et à une distance fixe de l’ordre de 2-3 mètres (1). Le pre- 
mier calcul du programme vous donnera le vrai nombre-guide ; de même, si vous vou- 
lez utiliser votre flash dans des conditions spéciales, par exemple avec un réflecteur 
gonflable pour adoucir les ombres (2) : 

Sensibilité ISO du film d’essai ? 100 

Valeur du diaphragme correct ? 11 

Distance flash-sujet ? 2 

La réponse apparaît : 22 pour 100 ISO. 


Si maintenant vous vous posez la question de savoir ce que vous pouvez faire avec 
le même flash et un film de 1600 ISO, commencez par calculer le nouveau nombre- 
guide : 

(Programme D) 

Sensibilité ISO de départ ? 100 
Nombre-guide correspondant ? 22 
Nouvelle sensibilité ? 1600 

Réponse donnée : NG 88 pour 1600 ISO. 


Nous pouvons utiliser ce dernier résultat avec le programme C, sachant que l’ouver- 
ture maximale de notre objectif est 2.8, pour trouver la portée théorique du flash avec 
ce film et cet objectif : 

(Programme C) 
Nombre-guide ? 88 
Diaphragme désiré ? 2.8 
Distance flash-sujet : 31.4 m 


la faible latitude d'exposition permettra de mieux repérer le bon diaphragme. 

@2) Le nombre-guide d’un flash n’est établi que pour son réflecteur d’origine dans des conditions 
de réflexion ambiante précises et pour des distances supérieures à 1 m. En dessous de cette dis- 
tance, pour des raisons de focalisation de l'éclair, le nombre-guide baisse. II sera donc intéressant 
de calculer, avec ce programme, les nombres-guides applicables en « proxiphotographie » (pho- 
tographie rapprochée). 
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un résultat pendant six secondes envi- 
ron. Pour une durée semblable, la bou- 
cle FOR I = 1 TO 500 est suffisante sur 
le PB-700. 


En résumé, nous avons pu voir sur cet 
exemple quelques-unes des règles à res- 
pecter pour écrire un programme faci- 
lement adaptable d’un ordinateur à 
Pautre : 

e d’abord, bien connaître le matériel de 
base, celui sur lequel sera conçu le pro- 
gramme au départ, comment le situer 
par rapport aux autres ; quels sont ses 
atouts et ses points faibles ; quelles sont 
ses particularités ; son Basic est-il 
« standard » ou non ? 

e utiliser au maximum dans la version 
initiale du programme le noyau de Basic 
accepté par la majorité des machines, les 
INPUT, GOSUB, PRINT, FOR NEXT, 
etc. Même si dans certains cas cela fait 
une programmation un peu lourde ; 

e ne pas utiliser les codes internes avec 
PEEK et POKE : il n’y a en effet 
aucune chance pour que les adresses 
soient les mêmes sur deux matériels dif- 
férents. Si vraiment on ne peut pas s’en 
passer, expliquer leur usage par des 
REM (remarques) détaillées ; 

e au niveau des différences de Basic, on 
peut les classer en deux catégories : 
d’une part les mots clés distincts qui cor- 
respondent à une même fonction (par 
exemple CLS et HOME) ; d’autre part 
les fonctions qui n’existent pas sur cer- 
tains matériels et qu’il faut donc rem- 
placer par un sous-programme (par 
exemple le formatage de résultats sur 
Apple). 

Dans tous les cas, il sera nécessaire de 
repérer ces différences par des REM et 
si possible de les isoler sur une ligne ; 
éventuellement, d’indiquer les transfor- 
mations à faire sur ces lignes dans un 
document joint au programme. 


D'une manière générale, les différen- 
tes phases doivent apparaître clairement 
sur la liste du programme, les transfor- 
mations sont alors plus faciles parce que 
bien délimitées. Dans notre exemple, le 
menu devait être complètement refondu 
à cause des différences d’affichage, il 
fallait donc que la partie « menu » du 
programme soit bien séparée du reste. 


On retrouve finalement des impéra- 
tifs bien connus : programmation struc- 
turée, « documentation » du pro- 
gramme, écriture simple et « aérée ». 
Tout cela répond à un vieux principe qui 
n’est pas seulement destiné à l’informa- 
tique : « ce qui se conçoit bien s’énonce 
clairement ». 
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LOGO 


ÉVOLUER 


DANS LES ARBRES 
BINAIRES 


À construction et l'exploration des arbres binaires permettent d'écrire 
des procédures du type de celles qui servent en “intelligence 
lificielle’, Chaque utilisateur enrichit le programme qui s'éduque, 

mme s'il était vraiment intelligent. Après l'analyse de la procédure 

‘qui permet de faire évoluer les données, nous proposerons aujourd’hui 


‘des solutions pour déjouer — partiellement — la mauvaise éducation 
que pourraient donner à notre programme des utilisateurs malicieux. 


Reprenons le jeu des questions et 

réponses que nous avions abordé 
dans LIST 7. On se souvient que tout 
arbre binaire est essentiellement com- 
posé de nœuds (qui sont autant de ques- 
tions) et de feuilles (qui sont autant de 
réponses et constituent les limites de 
l’arbre). Si une feuille n’est suivie de 
rien, un nœud en revanche est toujours 
suivi de deux éléments, soit deux autres 
nœuds, soit deux feuilles, soit un nœud 
et une feuille. Le premier de tous les 
nœuds, qui n’est précédé par rien, est 
appelé racine. 

Dans l’exemple que nous avions 
retenu, le but de l’exploration de l’ar- 
bre binaire est de faire deviner par la 
machine à quelle fleur l'utilisateur 
pense. Si cette fleur n’est pas encore ins- 
crite dans l’arbre, le joueur fournit les 
éléments nécessaires pour compléter les 
connaissances de la machine. A cette 
fin, nous avons déjà écrit les procédu- 
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res PARCOURIR et PROPOSER dans 
le précédent numéro. 


Pour fixer les idées, nous prendrons 
comme données un arbre binaire 
dénommé FLEURS ayant la structure 
suivante : 


ROUGE 


OUI 


LYS 


Nous pouvons représenter le même 
arbre de la façon suivante : FLEURS est 
[ROUGE ?] COQUELICOT [[BLEUE 
?] BLEUET LYS]] 


Supposons que les réponses de l’uti- 
lisateur aient été non aux deux questions 


OUI ______, COQUELICOT :: 


BLEUET 
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(‘rouge ?”’ et ‘bleue ?”’) et que, par 
conséquent, la réponse LYS ait été pro- 
posée. Supposons encore que la fleur à 
laquelle il pense est celle du pissenlit. La 
bonne question pour distinguer le lys du 
pissenlit est ici ‘‘jaune ?”?. Il s’agit donc, 
dans l'arbre binaire, de remplacer la 
feuille LYS par le nœud [[JJAUNE ?] PI 
SSENLIT LYS]. 


Keconstituer 


les branches 


Notre arbre devient alors : FLEURS 
est [ROUGE ?] COQUELICOT [[BL 
EUE ?] BLEUET [[JAUNE ?] PISSEN 
LIT LYS]]]. 

Exprimons le problème en français. 
Pour compléter l’arbre, il suffit de le 
parcourir jusqu’à une feuille. Chaque 
feuille fait remonter au nœud précédent 
en reconstituant la branche qui aboutis- 
sait à cette feuille. Cependant, lorsque 
nous tombons sur la feuille à remplacer, 
la branche est reconstituée avec le nou- 
veau nœud et ses deux feuilles dont 
lune est nouvelle. 


Passons en Logo maintenant. Pour 
simplifier les écritures, nous noterons A 
l'arbre, F la feuille à remplacer, et B la 
nouvelle branche à ajouter. 

POUR COMPLETER :A :F :B 

SI :A = :F [RETOURNE :B] 

SI MOTP :A [RETOURNE :A] 
RETOURNE (LISTE PREMIER :A COM 
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PLETER PREMIER SP :A :F :B COM 
PLETER DERNIER :A :F :B) 
FIN 


Exécutons maintenant pas à pas la 
procédure en poursuivant notre exem- 


ple. 

COMPLETER :FLEURS ‘LYS [JAUNE 
?] PISSENLIT LYS] 

:FLEURS est [[ROUGE ?] COQUELICOT 
[IBLEUE ?] BLEUET LYS]] 

:FLEURS n'est pas ‘LYS 

:FLEURS n'est pas un mot 

Résultat : [ROUGE ?] COMPLETER ‘CO 
QUELICOT ‘LYS [[JAUNE ?] PISSEN 
LIT LYS] COMPLETER [[BLEUE ?] 
BLEUET LYS] “LYS [[JJAUNE ?] PIS 
SENLIT LYS] 


COMPLETER ‘‘COQUELICOT 
[JAUNE ?] PISSENLIT LYS] 

:FLEURS n'est pas ‘LYS 

:FLEURS est le mot COQUELICOT 


Résultat : COQUELICOT, qui est 
retourné, termine la première procédure 
COMPLETER et fait passer au niveau 
supérieur. 

COMPLETER [[BLEUE ?] BLEUET LYS] 

“LYS [JAUNE ?] PISSENLIT LYS] 
:FLEURS n’est pas ‘LYS 
:FLEURS n’est pas un mot 

Résultat : [[BLEUE ?] COMPLETER 

“BLEUET ‘LYS [[JAUNE ?] PISSEN 

LIT LYS] COMPLETER “LYS “LYS 

[JAUNE ?] PISSENLIT LYS] 


COMPLETER ‘BLEUET “LYS 

[TJ AUNE ?] PISSENLIT LYS] 
Résultat : ‘BLEUET et passage au niveau 
supérieur. 


COMPLETER ‘LYS ‘LYS [JAUNE 
?] PISSENLIT LYS] 
:FLEURS est ‘LYS 


Résultat [[JAUNE ?] PISSENLIT 


LYS 


LYS] et passage au niveau supérieur, 
c’est-à-dire fin de l’exploration dans 
notre cas. Attention, la procédure est 
terminée parce que l’on a fini d’explo- 
rer arbre, et non pas parce que LYS 
a été trouvé. 


Résultat final : 

[ROUGE ?] COQUELICOT [[BLEUE 7] 
BLEUET [[JAUNE ?] PISSENLIT 
LYS]]]. 

Conforme à ce qui était prévu. 


Ainsi, lorsque l’arbre binaire a été 
défini, notre problème initial se résoud 
en quatre procédures principales qui ont 
été reproduites dans l'encadré ci- 
dessous. 


Pour améliorer ces procédures, on 
peut, bien entendu, adapter les dialo- 
gues, mais les véritables perfectionne- 
ments ont trait aux réponses que peut 


La solution 
en quatre procédures 


POUR JOUER 

EC [PENSE A UNE FLEUR, JE 
VAIS LA DEVINER] 

PARCOURIR :FLEURS 

FIN 


POUR PARCOURIR :A 

SI MOTP :A [PROPOSER :A STOP] 

EC PREMIER :A 

SI LISLISTE = [OUI] [PARCOURIR 
PREMIER SP :A] [PARCOURIR DE 
RNIER :A] 

FIN 


POUR PROPOSER :F 

(EC [JE PROPOSE :] :F [EST-CE EXA 
CT ?}) 

SI LISLISTE=[OUI] [EC [JE SUIS 
GENIAL] STOP] 

EC [A QUELLE FLEUR PENSAIS-TU 
?] 


DONNE ‘REP.OUI DERNIER LIS 
LISTE 

(EC IQUELLE QUESTION AURAIS- 
TU POSEE POUR QUE LA RE 
PONSE SOIT OUI POUR] :REP. 
OUI [ET NON POUR] :F) 

DONNE ‘“NQ LISLISTE. 

DONNE ‘FLEURS COMPLETER :FL 
EURS :REP.OUI (LISTE :NQ :REP. 
OUI :F) 

FIN 


POUR COMPLETER :A :F :B 

ST :A = :F [RETOURNE :B] 

SI MOTP :A [RETOURNE :A] 

RETOURNE (LISTE PREMIER :A 
COMPLETER PREMIER SP :A :F 

:B COMPLETER DERNIER :A :F 
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donner l’utilisateur. Pour les réponses 

par OUI ou NON, on remplacera SI LIS 

LISTE = [OUI] par SI REPONSE = 

[OUI] 

POUR REPONSE 

DONNE ‘REP LISLISTE 

SI :REP = [OUI] [RETOURNE [OUI]] 

SI :REP = [NON] [RETOURNE [NON]] 

EC [DONNEZ-MOI UNE REPONSE PAR 
OUI OU PAR NON] 

RETOURNE REPONSE 

FIN 


Les réactions 


des joueurs 


Lorsque l’utilisateur doit donner un 
nom de fleur, il faut éventuellement éli- 
miner l’article et transformer les mots 
restants en un seul. Par exemple UNE 
GUEULE DE LOUP deviendra GUEU- 
LE_DE__LOUP. 

DONNE ‘‘REP.OUI DERNIER LIS 

LISTE deviendra DONNE ‘‘REP. 

OUI NOUV.FLEUR 


POUR NOUV.FLEUR 

DONNE ‘REP LISLISTE 

VERIFIE :REP 

REPETE 3 [SI MEMBREP PREMIER 
:REP :ARTICLES [DONNE ‘REP 
SP :REP VERIFIE :REP] 

DONNE “REP TRANSFORME :REP 

FIN 

POUR VERIFIE:=R . 

SI :R=[] [EC [DONNEZ-MOI UN 
NOM DE FLEUR] NOUV.FLEUR] 

FIN 


POUR TRANSFORME :L 
SI :L= [] (RETOURNE “] 
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RETOURNE SD (MOT PREMIER :L 
?’__ TRANSFORME SP :L) 
FIN 


On n’oubliera pas d’initialiser 
quelque part la liste ‘ARTICLES 
DONNE ‘ARTICLES IL’ LE LA 
LES UN UNE DES C’ C’EST EST A 
AU]. Ainsi la réponse ‘‘c’est un iris des 
prés” donnera le mot IRIS__DES_ 
PRES. Bien sûr, si la réponse.est ‘’c’est 
à une rose que je pense”, le programme 
extraira la réponse ROSE__QUE__JE 
__PENSE. C’est pratiquement inévita- 
ble, sauf si vous êtes présent lors de 
l’utilisation de votre programme pour 
guider le joueur. Vous n’éviterez pas 
non plus le mot LOCOMOTIVE com- 
me nom de fleur. Il en ira de même pour 
la nouvelle question que vous ne pour- 
rez pas empêcher d’être farfelue. Vous 
pourrez simplement vérifier par pro- 
gramme qu’elle n’est pas vide. DONNE 
‘NQ LISLISTE deviendra DONNE 
“NQ NOUV.QUESTION : 

POUR NOUV.QUESTION 

DONNE “NQ LISLISTE 

SI NON :NQ= I] [RETOURNE :NQ] 
EC [DONNEZ-MOI UNE QUESTION] 


RETOURNE NOUV.QUESTION 
FIN 


Une dernière 
:REJOUER. 
POUR REJOUER 
EC [VEUX-TU RECOMMENCER] 
SI REPONSE= [OUI] [JOUER] [DE 
TRUIS ‘JEU SAUVE ‘‘JEU] 
FIN 
JEU est supposé être le fichier conte- 
nant le jeu, que vous avez ramené en 
début de partie et qui se réécrit modifié 
après chaque fin de jeu. 


amélioration 


Les utilisateurs ont, vous le consta- 
terez, envie de se mesurer avec la * 
machine. La première fois, ils répon- 
dent tous correctement, mais dans le 
même temps, ils apprennent que l’enri- 
chissement du programme dépend 
d’eux. La moitié change alors d’atti- 
tude. Un sur deux, en effet, aimerait 
alors répondre n’importe quoi. Et c’est 
d’ailleurs ce qu’il fait si vous lui laissez 
le loisir d’effectuer une deuxième 
tentative. 


En règle générale, on observe que le 
joueur n’essaie jamais d’induire le pro- 
gramme en erreur dès la première ten- 
tative parce qu’il a envie de voir si sa 
question a bien été enregistrée. Mais 
pour un joueur sur deux, il faut inter- 
venir dès la deuxième tentative. 


Au troisième essai, c’est 99 % des 
joueurs qui ont envie de faire appren- 
dre n’importe quoi à la machine. Ne fai- 
tes donc jamais jouer trois fois la même 
personne. Le libre service est très décon- 
seillé. À moins bien sûr de vouloir étu- 
dier l’évolution du délire chez le joueur. 


Après avoir abordé des procédures 
qui faisaient évoluer des données, nous 
étudierons une prochaine fois des pro- 
cédures qui se modifient elles-mêmes en 
fonction de conditions extérieures et sur 
des structures de données plus com- 
plexes que les arbres binaires. N’ou- 
blions pas que Logo est un langage d’In- 
telligence Artificielle qui ne distingue 
pas les procédures des données. 


AU DEBUT J'Ai Voulu PAÎRE UN CŒUR 


AVEC NoS iniTiALES, ET PUIS JE NE 
SAIS PAS CE QUI M'APRIS: 
Ne 
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‘ANNONCE du VG 5000 


en septembre dernier 


fut, à plus d’un titre, 
un petit événement 
dans le monde de 
la micro- 
informatique. 
C'était à la fois 

le premier ordinateur 


domestique de la firme hollandaise Philips, 


Ô combien dynamique sur d’autres marchés, un 
nouvel ordinateur français (mais oui !) car conçu et fabriqué 
en France, et enfin un bon rapport qualité-prix dans le bas de gamme. 


Le VG 5000 est livré en version de 
base avec un gros boîtier d’alimen- 
tation à découpage, un câble permettant 
d'utiliser un magnétophone à cassettes 


qui autorise la connexion à tout télévi- 
seur du commerce. Le clavier se veut de 
type « minitel », et ce n’est pas un 
compliment. 

En effet, ce clavier ne permet pas la 
frappe rapide : les touches sont toutes 
petites, proches les unes des autres et ne 
restent pas horizontales lorsqu’on les 
enfonce. Mise à part l’absence de pavé 
numérique, la disposition est assez intel- 
ligente bien qu’elle s’écarte notablement 
du standard, et que l’on soit obligé (au 
début) de chercher tel ou tel caractère. 
Les quatre opérations sont ainsi acces- 
sibles dans le pavé d'édition situé à 
droite du clavier principal. La partie 
alphabétique est disposée selon le stan- 
dard français AZERTY, et les minus- 
cules accentuées sont présentes. Comme 
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le veut une tendance actuelle sur les 
machines bon marché, la plupart des 
mots clés sont accessibles directement au 
clavier. 


Le Basic est d’origine Microsoft, et 
on retrouve donc un noyau d’instruc- 
tions présent sur d’autres matériels. 


Un petit 


raffinement 


L'éditeur est plein écran et son emploi 
particulièrement facile. Les touches 
associées à cet éditeur sont à répétition 
(comme le reste du clavier) et permet- 
tent l’insertion et la suppression d’une 
ligne, la suppression d’un caractère, et 
l'insertion d’un « blanc ». Il n’y a pas 
de véritable mode insertion : l'insertion 
d’un texte nécessitera celle du nombre 


de blancs correspondant. Les autres 
touches du pavé d’édition sont celles 
d’effacement de l’écran et de déplace- 
ment du curseur dans les quatre direc- 
tions. Les précieuses commandes 
AUTO et RENUM sont présentes. 
Ajoutons que la longueur maximum 
d’une ligne est de 144 caractères. Le 
VG 5000 offre un petit raffinement : les 
messages d’erreurs, assez nombreux et 
bien conçus, s’affichent en français et 
en clair (entendez par là, sans abrévia- 
tion). 


Le Basic ne possède qu’un type de 
variables numériques. Les valeurs sont 
stockées sur quatre octets. La précision 
est donc assez mauvaise : six chiffres 
significatifs. Les noms de variables peu- 
vent être de longueur quelconque, mais 
seuls les deux premiers caractères sont 
significatifs et les mots réservés sont 
bien sûr proscrits. 


Le contrôle des structures s’effectue 
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grâce à une poignée d’instructions main- 
tenant parfaitement classiques. Seul le 
strict nécessaire est présent. Ainsi IF... 
THEN ne peut être suivi de ELSE, et 
ne rêvez pas à quelque WHILE.... 
WEND et autres procédures : ce n’est 
pas sur cette machine de bas de gamme 
que vous les trouverez. 


L'affichage s’effectue dans une 
matrice de 24 lignes de 40 caractères. Il 
est possible de positionner le curseur à 
la position désirée par CURSORX et 
CURSORY. Il n’existe pas de véritable 
mode haute définition, c’est-à-dire que 
chaque point de l’écran n’est pas acces- 
sible individuellement. C’est une décep- 
tion, car la création de dessins devient 
très délicate. Il faut en effet définir 
les caractères graphiques nécessaires 
à la composition de la figure à dessiner, 
puis les afficher au moyen de PRINT 
aux positions désirées. 


Cette définition concerne bien 
entendu la forme du caractère, mais 
aussi sa couleur (huit couleurs sont 
disponibles) et la couleur du fond. Lors 
d’un affichage, la couleur du fond du 
caractère se propage jusqu’au bout de 
la ligne courante. 


Des images, 


des sons et des poignées 


Trois instructions d’affichage, origi- 
nales et très pratiques, sont là : DELIM 
fait ressortir un texte lors d’un PRINT ; 
DISPLAY offre la possibilité de régler 
la vitesse d’affichage ; et enfin, PAGE 
interdit tout défilement de l’écran, 
SCROLL rétablissant bien sûr la situa- 
tion initiale. 

Dans le domaine des sons, et même, 
osons le dire, de la musique, le VG 5000 
ne se débrouille pas trop mal. Son Basic 
est doté à cette fin de deux instructions : 
SOUND suivi de trois paramètres émet 
un son réglable en fréquence et en 
durée. Le troisième paramètre modifie 
«le rapport cyclique de l’onde pro- 
duite» (selon l’expression employée 
dans la documentation). La deuxième 
instruction est PLAY « chaîne de carac- 
tères » ; son fonctionnement est simi- 
laire au PLAY du Basic MSX (en moins 
puissant) et permet donc de jouer une 
mélodie composée d’une suite de notes 
(avec éventuellement dièses et bémols), 
selon le tempo désiré. 


Des images, des sons. Il ne manque- 
rait plus que quelques instructions pour 
gérer le fonctionnement des poignées, et 
à nous les petits jeux d’action ; ces ins- 
tructions existent, et permettent de tes- 
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Liste des mots clés du Basic du VG 5000 


ABS DIM KEY PAGE SETET 
ACTION DISPLAY PEEK SGN 
AND LEFTS PLAY SIN 
ASC EG LEN POKE SOUND 
ATN END LET POS SPC 
AUTO ET PRINT SQR 
EXP LIST 
CALL FLE READ STICKX 
CHRS FOR. STEP. NEXT | op REM STICKY 
CLEAR FRE LOG RENUM STOP 
AD  cosur SRE 
LPOS 

COS GOTO RIGHTS TAB 
CSAVE GR MIDS RND TAN 
CURSORX JF... GOTO RUN TX 
CURSORY jf... THEN Dee SAVE USR 
DATA INIT ON... GOSUB SCREEN : 
DEFFN INPUT ON... GOTO  SCROLL VA 
DELIM INT OR SETEG & “‘xxxx”? 


ter la position de deux poignées avec 
leur bouton. En fait, les quatre flèches 
de direction peuvent être utilisées 
comme une poignée de jeu. 


Dans le domaine des chaînes de carac- 
tères, rien de nouveau sous le soleil, le 
conservatisme de Microsoft s’exprime 
ici pleinement, et à bon escient, dans la 
mesure où la petite panoplie de fonc- 
tions de chaînes alphanumériques suf- 
fit à tout faire simplement. On regret- 
tera juste l’absence de INSTR, très pra- 
tique pour extraire une sous-chaîne 
d’une chaîne. 


Les fonctions mathématiques sont 
peu nombreuses. Comme souvent en 
Basic, la seule fonction trigonométrique 
inverse est ATN. Heureusement, 
DEFFN permettra de combler cette 
lacune. Les fonctions logiques se pré- 
sentent sous forme de mot (et non pas 
de signe) : AND, OR et NOT. Mais la 
fonction XOR ( ou exclusif) fait défaut. 


Il est possible de sauvegarder et de 
relire des programmes Basic, des 


| 


Fiche technique du VG 5000 
Constructeur : Philips (SA Philips IC) 


|: Distributeur : Philips 


Prix public : 1590 FF (environ) 
Processeur : Z80 À 
Mémoire morte : 18 Ko 
Mémoire vive : 24 Ko | 
Mémoire vive disponible : 15758 octets | 
{13,4 Ko) | 
Langage : Basic résident 
Affichage : 25 lignes de 40 caractères 
Résolution graphique : 400 x 200 points | 
: (non adressablés individuellement) 
Précision : 7 chiffres pour les calculs, 6 chif- 
fres stockés et affichés 
Nombre de mots clés du Basic : 85 


tableaux ou des chaînes de caractères 
grâce au « duo » : CSAVE-CLOAD. 
Un deuxième duo, SAVE-LOAD vient 
compléter le premier en permettant la 
sauvegarde et la lecture de programmes 
sous forme ASCII. En fait, il en existe 
quatre autres du même type permettant 
la sauvegarde et la lecture de tableaux, 
de chaînes de caractères, de zones de la 
mémoire en code machine, de la zone 
écran (image vidéo). Quant à CSAVEL, 
il saute l’amorce de la bande magnéti- 
que. CLOADA remplit le rôle du clas- 
sique MERGE en permettant la fusion 
de deux programmes, et enfin CLOAD? 
permet de vérifier la sauvegarde d’un 
programme. 

Les habitués du chapitre « accès au 
langage-machine » sont là aussi : le cou- 
ple PEEK et POKE ; CALL qui lance 
un programme en langage-machine à 
partir de l’adresse spécifiée par l’unique 
argument ; USR qui effectue la même 
opération, à ceci près que l’adresse doit 
être définie au préalable et qu’il est pos- 
sible de passer un argument qui ira se 
loger dans un registre du micro-proces- 
seur. 

Le Basic du VG 5000 est un des plus 
rudimentaires qu’ait produit Microsoft. 
Cela dit, le public visé est celui des débu- 
tants, et il est vrai que ce Basic est par- 
ticulièrement facile à apprendre. Il faut 
d’ailleurs ajouter que le prix de la 
machine est intéressant. Vu sous cet 
angle, le tableau s’éclaircit : dans cette 
gamme de prix, la concurrence est qua- 
siment inexistante. Mais, répétons-le, et 
contrairement à une machine MSX ou 
un Amstrad, le passage à la vitesse supé- 
rieure nécessitera, de la part de l’ama- 
teur l’achat d’une machine plus 
puissante. 


Thierry LÉVY-ABÉGNOLI 
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ES — 


ï ROUVER le « suivant » 
- d’une suite de 
nombres donnés n'est 
pas simple, si l’on ne 
connaît pas la loi qui 
régit cette suite, Il faut 
donc trouver des 
formules qui permettent 
d'extrapoler. Elles 
existent, mais attention 
aux résultats. 


Suite à suivre 
Programme en Basic: 
Auteur Pierre Barnouin 
Copyright LIST et l’auteur 


1 PRINT'Entrez les données puis un RETURN supplémentaire" 7 à 9et21 
2 DEFINT A:ON ERROR GOTO 28 10 à 12 et 22 
3 INPUT ACN)D:IF ACN) THEN N=N+1:GOTO 3 à 

4 P=CA(2)-A(1))/CAC1)-AC(O)):Q=AC1)-PxA(U) 13 à 18, 23 et 24 
5 FOR 1-3 TO N-1:IF A(I)<>»PxAC(I-1)+Q THEN 1-90 

6 NEXT:K-1:1F I-N THEN 19 19 

7 P=CAC3)-AC1))/CA(2)-AC(O)):Q=-A(2)-PxA(O) 25 à 27 

8 FOR 1-4 TO N-1:1F AC1)<>PxA(1-2)+Q THEN 1-90 

9 NEXT:K=-2:1F I-N THEN 19 

10 P=(AC3)xA(D)-A(2)xA(1))/CA(2)xA(O)-AC1)x*A(1)):Q=(A(3)-PxA(2))/A(1) 
11 FOR 1-4 TO N-1:1F ACI)C>PxACI-1)+QxACI-2) THEN 1-90 


NEXT:K=3:1F I-N THEN 19 


S-A(3)-R«A(1) 


NEXT:K-4:1F 1+J>90 THEN 25 


À SUIVRE 


Pour extrapoler une suite de don- 

nées, on commence par considérer 
ces données comme les ordonnées 
d’une fonction correspondant à des 
abscisses équidistantes. Puis, on utilise 
une formule d’interpolation, par exem- 
ple celle de Lagrange. Elle remplace la 
fonction inconnue par le polynôme le 
plus simple, celui dont la courbe repré- 
sentative passe par tous les points cor- 
respondants aux données. 


De cette manière, il paraît naturel de 
chercher à résoudre les tests de suites 
numériques, comme les fameux tests qui 
servent prétendument à mesurer le quo- 
tient intellectuel. 


Mais on constate très vite que les 
résultats sont franchement mauvais. Les 
relations de récurrence déterminant ces 
suites aboutissent rarement à une repré- 
sentation algébrique simple en fonction 
du rang du nombre. 


En analysant un peu plus à fond, on 
observe que ces relations restent géné- 


Explications 
u.programme 


Lignes 


ralement du premier degré (équations 
linéaires), et ne font appel qu’à un ou 
deux des termes précédents. Mais il y a 
souvent deux relations différentes, par- 
fois trois, et les critères de simplicité 
retenus par les auteurs des tests semblent 
échapper à toute définition exhaustive 
ou systématique. Il n’est donc pas facile 
de trouver des solutions sur ordinateur, 
et vain d’espérer une infaillibilité dans 
ce domaine. 


Le programme, quant à lui, explore 
successivement les possibilités sui- 
vantes : 


An = p An + q 

An = p A2 + q 

Ah = pP A1 + € An-2 

An = P As2 + q,sinest pair et 
An = T A2 + 5, sin est impair 


(relations polynômiales avec interpola- 
tion de Lagrange). 


Le nombre des réponses est égal à dix 
moins le nombre des données. Le pro- 
gramme refuse les coefficients p qui ne 
seraient pas entiers ou inverses d’entiers, 
Il donnera des réponses exactes dans la 
plupart des cas. Les aberrations pro- 
viennent généralement des relations 
polynômiales essayées en désespoir de 
cause dans les cas les plus complexes. 
Par exemple, si l’on a utilisé trois lois 
de récurrence ou plus, ou encore une 
suite de nombres premiers. En pareil 
cas, le programme souligne le caractère 
douteux des réponses par un petit bip. 

Écrit en Basic standard sur un PX-8 
(Epson), on pourra le transposer sans 
trop de mal sur d’autres matériels. Si 
vous n’avez pas de ON ERROR GOTO, 
un message d’erreur sans conséquence 


Commentaires 


là 3 


P=CAC4)-A(2))/(A(2)-A(0)):Q=A(2)-PxA(0) 
R=P:IF N>4 THEN R-(A(5)-A(3))/CA(3)-A(1)) 


FOR 1-5 TO N-1 STEP 2:1F A(I1)C>RxA(1-2)+S THEN 1-90 
NEXT:FOR J-:6 TO N-1 STEP 2:1F A(J)<:PxA(J-2)+Q THEN J-90 


IF P-INT(P) OR 1/P-INT(1/P) THEN ON K GOTO 20,21,22,23 ELSE 25 
ACN)=PxACN-1)+Q:PRINT ACN);::N=N+1:GOTO 20 


21 ACN)-=PsxACN-2)+Q:PRINT A(N)D::N=-N+1:GOTO 21 

22 ACN)D-PxACN-1)+QxA(N-2):PRINT A(N)::N=N+1:GOTO 22 

23 IF N MOD 2 THEN ACN)-RxACN-2)+S:PRINT ACN)D::N=N+1 

24 ACN)-PxACN-2)+Q:PRINT ACND;:N=N+1:GOTO 23 

25 BEEP 9:FOR 1-0 TO N-1:Z-A(J):FOR J=-0 TO N-1 

26 IF I-J THEN Z=-Zx(N-J)/(1-J) 

27 NEXT:Y-Y+Z:NEXT:ACN)D-Y:PRINT ACN);::Y=0:N=N+1:GOTO 25 
28 END 


N° 8 - AVRIL 85 


4à 6 et 20 


Initialisation, entrée des données 
a(n) = pa(n-1) + q 

a (n) = pa(n—2) + q 

an) = pa(n-1) + qa(n-—2) 
a {n) pa (n—2) + q (n pair) 
an) = ra(n—2) + s (n impair) 
Tri des solutions 

Relation polynômiale 


suivra la dernière réponse. En revanche, 
avec un Basic qui explore toutes les bou- 
cles au moins une fois avant d’en tester 
les bornes (comme le Canon X-07), il 
faudra agir à coup de IF... THEN. 


Un dernir truc pour parfaire votre 
entraînement : si aucun bip n’a dénoncé 
une interpolation de Lagrange, essayez 
donc de deviner la (ou les) relations(s) 
utilisée(s) et contrôlez les valeurs de K, 
p, q ; mais aussi, si K —4, celles der ets. 
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MUSIQUE SUR PC-1251 


UN 


PETIT PIANO 
DANS LA POCHE 


OUS savons que, grâce à une courte routine 
en langage-machine, le PC:1251 peut 
générer des sons sans utiliser son bip (1). 
En faisant varier fréquence et durée et.en 
attribuant les notes ainsi obtenues aux différentes 
touches du clavier, l'ordinateur devient un 
minuscule instrument de musique. 


Mises à part CL, ENTER et les 

sept premières touches de la ligne 
supérieure du clavier, toutes les autres 
seront réquisitionnées pour les besoins 
de la musique. Nous allons en effet pou- 
voir jouer sur deux octaves en augmen- 
tant ou diminuant éventuellement les 
notes d’un demi-ton (dièse et bémol), en 
choisissant leur durée (de la double cro- 
che à la blanche en passant par la noire 
pointée) et leur timbre. 


Pour vous en convaincre, tapez soi- 
gneusement le programme et lancez-le. 


Si le menu défile un peu lentement à 
votre goût, sachez que, par la suite, 
vous pourrez appeler directement, à 
partir de DEF, le sous-programme qui 
vous intéresse. 


Vous avez le choix entre six options : 
e C, comme Clavier, affecte à chaque 
touche une note. Pour connaître leur 
position et utiliser votre PC-1251 
comme un (petit) piano, reportez-vous 
à la figure de la page ci-contre. La pre- 
mière gamme commence à la lettre A et 
se termine en K, la seconde part de K 
et s'arrête sur la barre de fraction de la 
ligne supérieure. 
e M, comme Mémorisation, vous per- 
met d’entrer en mémoire un air que la 
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machine vous restituera ensuite deux 
fois, sur un rythme plus rapide. 

e À, comme Automatique, rend la main 
à la machine qui compose elle-même 
une mélodie à partir des éléments que 
vous lui donnez : le nombre de notes, 
la possibilité d’inclure ou non des diè- 
ses et celle de choisir les sonorités sur 
une ou deux octaves. 

e J, comme « je Joue », fera exécuter 
à la machine les compositions mises en 
mémoire. 

e K, comme K7, déclenche la sauve- 
garde des morceaux sur cassette. 

+ L, comme Load, permet de les récu- 
pérer pour les écouter de nouveau. 


Pour sortir d’un sous-programme et 
en appeler un autre, tapez sur SPC. 


À partir de la routine de génération 
de sons proposée par Marc Leygnac 
dans le n° 5 de LIST, j’ai déterminé les 
valeurs correspondant aux fréquences 
des notes de la gamme et j’ai trouvé un 
moyen d’obtenir des durées égales 
quelle que soit la hauteur des sons. 


I ne restait plus, dès lors, qu’à affec- 
ter les différentes notes de la gamme aux 


(1) Une petite musique de poche de Marc 
Leygnac, LIST 5, page 64. 


touches du clavier ; et pour mémoriser 
une mélodie, de créer les tableaux enre- 
gistrant les paramètres des différentes 
sonorités. 


Faisons, si vous le voulez, un essai. 
Prenons un air simple, connu de tous, 
« Au clair de la lune » : DO DO DORE 
MI RE DO MIRE RE DO. 

Tapez DEF M. La machine vous 
demande de choisir une base-temps et 
un timbre. À la première sollicitation, 
répondez par un nombre compris entre 
0 et 255 (par exemple 200), à la seconde 
par un chiffre pris en 0 et 9. Indiquez 
enfin le nombre de notes de la mélodie 
(11 dans notre cas), puis introduisez 
celle-ci au clavier. L'ordinateur mémo- 
rise alors l’air et vous le joue deux fois 
de suite. 


Pas de difficulté particulière si l’on se 
contente de ne jouer qu’en noires 
(valeur : un temps), mais il est tout à 
fait possible de faire intervenir des notes 
de valeur différente. Il faut alors indi- 
quer, après avoir tapé la note, s’il s’agit 
d’une noire pointée (un temps et demi), 
d’une blanche (deux temps), d’une cro- 
che (un demi-temps) ou d’une double 
croche (un quart de temps). Frappez res- 
pectivement sur les touches 0, 9, 8 et 7. 


Vous en savez maintenant suffisam- 
ment pour reproduire quelques refrains 
connus ou vous lancer dans l’improvi- 
sation. Un conseil toutefois, si vous pos- 
sédez l’interface-cassette (CE-125), il 
vaut mieux, pendant l’emploi du pro- 
gramme, se servir de l’alimentation sec- 
teur pour faire fonctionner le PC-1251. 
Il semble bien en effet que, lors d’une 
utilisation prolongée du haut-parleur, 
les piles se déchargent plus rapidement 
qu’en temps normal. 


Daniel BRIANT 
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FE Piano. de poche 


: Programme. pour PC- 1251 


: Auteur Daniel Briant 


Copyright LIST et l'auteur 


in 
er 


T 
Led 


[= 


ro 45: 


MID CASCB)sIr24): 
NEXT I 
SEPÛOKE 6354811: 
PRINT CHOISIS 
ñ K OUL" 


… Liu rs 


n 


POKE 20000 80320 
D2RI RFF RBL RE, 200 
1 RD» RD RFF a RBts SCT 
1&29»r&405 837 


WAIT : 
3: CM 


PRINT 


158: RETURN 


TABLEAUX NOTES 
UT SNOMBRE DE * 
E9. "14 
SDIM NEMDs TM 
RETURN 


SREM TOULHE 
H$= INKEYS : 
“ THEN 250 
1J= ASC (AF)-42 
RETURN 

ji: REN CLAVIER 
SDOSUB 28:1=9: DIM Né 
Tr T{12: BEEP 2 

3: GÜSUB 258: IF J=-19 
THEN END 
3ÿ:GÜSUB 178: 


IF âge" 


GOTO 328 


359:"m*: REM MEMDIRE 
364:G0SUB 28: GOSUE 219 
2BEEP Z: PAUSE YJOUEZ 
! J ENREGISTRE 1° 
FÜR I=g TO M 
:GOSUB 250: IF J=-10 
BEEP 2: GOTO 450 
#IF J=6 DR J=13 OR J= 
14 OR J=15 LET NCI-1 
d= INT CFCJD%3): 
GOT 334 
SOÛUSUE 119: NEXT I! 
BEEP 2: GOTO 45% 
st]: REM EXECUTIO 
:GOSUE 148: PAUSE ” 
JE JOUE !* 
4TY:FOR Kai TD 3 
SSG:EOR = TD M-is IF 
Cl2=g THEN Sÿÿ 


AVEC 1 D N GS 
F s£e 85 IF GEzÙ)" LET à 
=13 
tDIM F{Eï: RESTORE 52 
G+(iWxD)t FOR I=à T0 
Et READ Fil): NEXT I 
ITATA 225: 215190: 176 
»14951299 1951959232» 
29751625136r113 
SDATA 35»7Ts61 5541 
395295151343 59s 47335 
523 
J:PQUSE * 


1 


J IMPROVISE 
5 RANDOM 

SFÜR [=D TO M-i:J= 
RND €: GOSUE 179 
638:5F AND 96,5 LET 
= INT £,25%2) 

SAS: NEXT Ii GOTO 45ù 


NET) 


Sa: "K": 


KT) 
GSH:BEEP 2: END 
THB: °L*: REM LECTURE #7 
TIBICLEAR 1 INPUT ‘KT pa 
ETE ‘iàs 
729: INPUT 2m: 
emi 
FSDINPUT HRsNCKÜ T4 
744:G0T3 45ÿ 


DIM NEMDAT 


DO # | RE # | MIb SIb | DO # | RE # | MIb DO 
232 207 207 162 113 84 69 69 15 x 
+-—— ————— à 
A |S F J K | L | = * 
DO RE MI FA SI DO RE MI SI 
255 221 190 176 20 
Octave à Z x V + …. 
‘ Gros || Do | RE | Mi RE |Mib | | £ 
séparées & 
par 1 ton 255 221 190 162 5 l 


Les valeurs à ne pas dépasser 
— Base-temps : 
— Timbre : de 0 à 9 
— Touches de durée : 
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de 0 à 255 (nombre entier) 


7 et 8 (base-temps < 256) 
0 (base-temps < 
9 (base-temps < 


128) 


86) 


LIST - 


REM ENREGISTRER 
669: INPUT ‘K7 PRETE “iA$ 


SPÉSPRINT am: PRINT 2R:N 


1 ton et demi 


octaves 
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ÉLÉCOMMANDER le lecteur d 
si une de ses touches est enfo; 
arrêter le moteur, les ordinateurs 
ça très bien, Mais pourquoi le s 


UTILISEZ 


d'exploitation serait-il seul à le faire ? Voici 
quelques adresses et comment les utiliser. 


Quiconque a déjà utilisé un de ces 

(.. mais en existe-t-il plusieurs ?) 
ordinateurs qui ne savent pas arrêter un 
magnétophone sait qu’une machine 
honnête doit avoir quelque part dans 
son système d’exploitation de quoi con- 
trôler le fonctionnement du lecteur de 
cassettes. Chez Commodore, deux 
taphysiquement strrratégique, dirait 
Dali. L’une peut télécommander le 
moteur, l’autre sait si une touche du 
magnétophone a été enfoncée. Une tou- 
che, n’importe laquelle (sauf bien sûr 
STOP), car l’unité centrale est bien 
incapable de savoir si la touche enfon- 
cée est le bobinage rapide, la lecture, ou 
l’enregistrement et la lecture ensemble : 
il faut bien faire un peu confiance à 
l'utilisateur. 


Quatre instructions de base seront 
donc à considérer. 


LIST - PAGE 62 


* Attendre qu’une touche du magnéto- 
phone soit enfoncée. 
Sur CBM : WAIÏT 59408, 16, 16 
Sur Vic : WAIT 37151, 64, 64 
Sur C.64 : WAÏT, 1, 16, 16 
e Attendre l’arrêt du magnétophone 
(toutes les touches relevées). 
Sur CBM : WAIT 59408, 16 
Sur Vic : WAIT 37151, 64 
Sur C.64 : WAIT 1, 16 
e Arrêter le moteur du magnétophone. 
Sur CBM : POKE 59411, 60 
Sur Vic : POKE 37148, 244 
Sur C.64 : POKE 192, 7 : POKE 1, 
PEEK (1) AND 223 OR 32 
+ Relancer le moteur du magnétophone. 
Sur CBM : POKE 59411, 61 
Sur Vic : POKE 37148, 254 
Sur C.64 : POKE 192, 0 : POKE 1, 
PEEK (1) AND 223 


Rappelons que WAIT bloque l’exé- 


 COMMODORE 


E MAGNÉTOPHONE 


cution d’un programme jusqu’à ce 
qu’un octet particulier soit à l’état voulu 
(et sans tester la touche STOP, ce qui 
en fait une instruction redoutable ; voir 
encadré page suivante). 


L'anglais vous donne 


de l’urticaire ? 


Le bon usage de ces adresses peut sin- 
gulièrement simplifier la vie de ceux qui 
utilisent des fichiers séquentiels sur cas- 
sette, et même des autres. 


Le premier exemple sera la francisa- 
tion des messages relatifs au magnéto- 
phone. Ce n’est pas la peine de faire de 
jolis programmes dans la langue de 
Molière (« Ma chère cassette …. »), si 
c’est pour voir apparaître sur l’écran, 
dès qu’on veut faire des entrées/sorties 
sur icelle (la cassette), des messages rédi- 
gés dans la langue de Shakespeare : 
“PRESS RECORD AND PLAY ON 
TAPE”’ (HamPet Acte 7, scène 255). 
C’est même franchement rebutant pour 
les gens qui ne demanderaient qu’à se 
servir d’un ordinateur, mais à qui la 
seule vue d’une phrase anglaise colle de 
l’urticaire aussi sec. 


Or, dès qu’on fait un OPEN, 1, 1,0, 
“ZOZO’”’ (ouverture en lecture d’un 
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fichier séquentiel sur cassette), apparaît 
un laid ‘‘PRESS PLAY ON TAPE’’, 
qu’on le veuille ou non, à moins que, 
sentant venir le vent, l’utilisateur ne se 
soit précipité, index frémissant, pour 
enfoncer la touche lecture avant qu’on 
ne le lui demande. 


L’astuce va donc consister à deman- 
der à l’utilisateur avant l'OPEN d’ap- 
puyer sur la touche ; et pendant qu’on 
y est, à le lui demander en français : 


5000 PRINT ‘‘APPUYEZ SUR LA TOUCHE PLAY DU MAGNETOPHONE” 


5010 WAIT 1, 16, 16 
5020 PRINT ‘‘D’ACCORD”’ 
5030 OPEN … 


et la vieille dame du Quai Conti (Non ! 
pas Yourcenar, les quarante !) d’ap- 
plaudir bien fort. 


Etalonner 


le programme 


Une autre utilisation de cette astuce 
consiste, par exemple dans un pro- 
gramme qui gère un seul fichier sur cas- 
sette, à mettre le fichier sur la même cas- 
sette que le programme, à distance res- 
pectueuse. Les choses se passent ainsi : 
le programme principal, dans la partie 
consacrée à l'écriture du fichier, 
demande de rembobiner la cassette 
jusqu’à son début, puis d'appuyer sur 
STOP. Il demande ensuite d'appuyer 
sur la touche « marche avant rapide ». 
Dès que cette touche est enfoncée, il 
lance un chrono et, lorsque ce chrono 
atteint le temps nécessaire pour que le 
programme principal soit dépassé sur la 
cassette, il coupe le moteur et demande 
d'appuyer sur la touche STOP du 
magnétophone avant de procéder à 
l'écriture. 


50050 WAIT 1, 16, 16 

50060 PRINT ‘‘D’ACCORD”’ 
50070 TIS = ‘0000007? 

50080 IF TI < XX THEN 50080 


50120 WAIT 1, 16 
50130 PRINT ‘‘D’ACCORD” 


50170 WAIT 1, 16, 16 

50180 PRINT ‘‘D’ACCORD”’ 
50190 OPEN 1, 1, 1, ‘“‘ZOZO” 
etc. 
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49999 REM *** POSITIONNEMENT DE LA CASSETTE *** 
50000 PRINT ‘‘METTEZ LA CASSETTE A SON DEBUT’’ 
50010 PRINT ‘‘PUIS FRAPPEZ RETURN.” 

50020 GET RS :IFR$ < > CHRS$(13) THEN 50020 

50030 PRINT ‘‘ENFONCEZ LA TOUCHE ’AVANCE RAPIDE’” 
50040 PRINT ‘DU MAGNETOPHONE.”’ 


50090 POKE 192, 7 : POKE 1, PEEK (1) AND 223 OR 32 
50100 PRINT ‘‘ENFONCEZ LA TOUCHE ’STOP’” 
50110 PRINT ‘‘DU MAGNETOPHONE.’””’ 


50140 REM *** ECRITURE DU FICHIER *** 
50150 PRINT ‘‘ENFONCEZ LES TOUCHES ENREGISTREMENT’ 
50160 PRINT ‘‘ET LECTURE DU MAGNETOPHONE.”” 


WAÏT n rest pas une instruction présente s sur: toutes néétihes: et si re est pré- ; 
sente dans le Basic de Commodore, elle n’est pas souvent : utilisée. IE est vrai que c "est 
une instruction booléenne en diaaaable, quoâ ! A 
Elle fonctionne Sélon la syntaxe WAIT A,B,C où À iéieeaté une dass et-B.et 
C deux nombres compris entre 0 et 255, C étant facultatif.et valant 0 par défaut. En. 
fait, l'ordinateur comprend : IF (PEEK(A) XOR C) AND Best différent de 0 THEN | 
je continue, sinon, je boucle et j'attends obstinément qu’il cesse d’être nul comme ça. | 
XOR, c'est l'opération de OÙ exclusif ; AND, c’est le ET logique, 


Sur le Commodore 64; le bit 4 de l’octet ï est. peur à la détection d’une touche: 
enfoncée sur lé magnétophone; et le bit 5 au contrôle du moteur, 
Si on veut attendre que toutes les touches du magnétophone. soient relevées, il 190 
que le bit 4. de l’octet contenu dans l'adresse 1:soit à 1. 
Essayez d enfoncer a touche PLAY de votre lecteur de cassette et ke Ps PRINT 
PEEK(1) : vous ‘obtenez 7.en temps normal. Si PEEK(1) vaut 7, comme là représenta- | 
tion de 7 sur un octet est SPORE Il'et celle de 16:est 00010000, alors 7 AND 16 devient 
sur un: per HÉDRE } : É ; 


“2 PARU RRRNIATMENE rt 101U à 
1146 HITS ET 00080000! 
TAND 16: 11127 00000000: : 


Le résultat de 7. AND 16 est: nul : WAIT. 1, 16 fait boucler le: brogramme: 
Appuyez. t te STOP: ‘et refaites PRINT PEEK(1) : vous ie 55. 


Si, en Pétat actuel des choses, on sombe sur. un WAIT. 4, 16, + o 
RASE : à :001 10111 
6: : 00010000: 

55 XOR ié:: 00100111: 
:{55XOR 16) AND 16 ‘00000000 AE 
Le résultat ést si ‘et le programme boucle. Mais si on per une touche, les bits 
4ets PRE à zéro (l’octét: sant formé de huit bits numérotés : ri et fon ai: 

fi i 00000111: 

:::00010000 
2100010111: 

; HT RAS & XOR 16) AND. 16 BH 00010000 
Le: césiiltut st non-nul et ke programme peut: 


L'important dans l’histoire est donc 
d’étalonner le programme ainsi modi- 
fié pour fixer la valeur représentée par 
XX à la ligne 50080. Cette valeur est 
comparée à celle de TI. Rappelons que 
chez Commodore, deux variables réser- 
vées sont consacrées à l’horloge interne. 
L'une, TI, représente l’heure exprimée 
en jiffies ou 1/60° de seconde. On peut 
la lire, mais pas lui affecter de valeur : 
essayez de faire en mode direct TI=0 
ou TI=12, vous aurez du SYNTAX 
ERROR autant que vous voudrez. Pour 
remettre TI à zéro, il faut passer par la 
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seconde variable, TI$, une chaîne de 
caractères comme son nom l'indique, 
qui représente l’heure au format 
HHMMSS, c’est-à-dire ‘‘101254”° pour 
10 heures 12 minutes 54 secondes. C’est 
ce qui est fait à la ligne 50070. Or donc, 
pour étalonner le programme principal, 
on peut se rentrer vite fait un petit pro- 
gramme du genre : 
100 PRINT ‘‘APPUYER SUR LA 
TOUCHE ’AVANCE RAPIDE’ 

110 WAIT 1, 16, 16 
120 PRINT ‘‘D’ACCORD” 
130 TI$ = ‘‘000000”? 
140 WAIT 1, 16 
150 PRINT TI 

Pour l'utiliser, il faut d’abord enre- 
gistrer le programme principal au début 
d’une cassette, puis rembobiner complè- 
tement la bande (amorce comprise), 
mettre le compteur du magnétophone à 
zéro et faire un LOAD ou un VERIFY. 
On note le numéro du compteur, et on 
rembobine. On peut alors lancer 
l’étalonnage. 


Attention aux 


noyaux des cassettes 


Le programme attend qu’une touche 
soit enfoncée. Dès que c’est fait, il remet 
à zéro la variable réservée TIS$ et, en 
même temps, la variable réservée TI. 
Lorsque le compteur atteint le numéro 


70 PRESS RECORD 

AND PLAY ON TAPE 

OR NOT To PRESS 
RECORD... 
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que vous avez noté, appuyez sur la tou- 
che STOP du magnétophone. Le temps 
(en jiffies) nécessaire au bobinage s’af- 
fiche alors à l’écran, et vous le notez 
précieusement : c’est ce nombre qui 
figurera à la place de XX ligne 50080. 


Mais attention ! Quechvouzesplique 
un machin important : les cassettes ont 
beau être standard, seules les dimen- 
sions extérieures sont fixes. A l’inté- 
rieur, chacun fait ce qu’il veut, et 
notamment dans le domaine du diamè- 
tre des noyaux. Quatre mètres de bande, 


20 DIM T(6) 


180 PRINT 


210 XX=T(R): PRINT R 


240 WAIT 1, 16, 16 
250 PRINT ‘‘D'ACCORD’’ 
260 TI$ = ‘0000007? 


310 WAIT 1, 16 


330 PRINT ‘LA TOUCHE 
340 WAIT 1, 16, 16 
350 LOAD “‘”’, 1,1 


JE Suis FFFOU 
DES ORDINATEURS 
COMMODORE / 


10 DATA 100, 200, 300, 400, 500, 600 


ça ne met pas le même temps à se bobi- 
ner sur un tout petit noyau de 12 mm 
de diamètre et sur un noyau confort de 
25. Si vous copiez votre programme sur 
des cassettes différentes, il faudra pro- 
céder chaque fois à un étalonnage. 
Qu'on se le tienne pour dit. 


La même remarque vaut pour l’utili- 
sation suivante. Car ce qu’on vient de 
faire pour un fichier, rien n'empêche de 
le faire pour plusieurs programmes. On 
peut mettre en début de cassette un pro- 
gramme de ce style : 


30 FOR 1=1 TO 6:READ T(I):NEXT I 

100 PRINT CHRS$(147); TAB(18); ‘JEUX’: PRINT 

110 PRINT ‘1. FLIGHT SIM” 

120 PRINT ‘‘2. BATTLE OF NEW CALEDONIA’’ 

130 PRINT ‘‘3. SORCERER OF LEVALLOIS"” 

140 PRINT ‘‘4. MORPIO ATTACK” 

150 PRINT ‘‘5. RETURN OF THE SON OF DONKEY KONG JR.” 
160 PRINT ‘‘6. PANICK AT CHATEAUVALLON"’ 


190 PRINT ‘‘VOTRE CHOIX ?”’ ; 
200 GET RS$:R = VAL(R$): IFR <1 ANDR> 6 THEN 200 


220 PRINT ‘‘ENFONCEZ LA TOUCHE ‘AVANCE RAPIDE’” 
230 PRINT ‘DU MAGNETOPHONE.”’ 


270 IF TI < XX THEN 270 
280 POKE 192, 7:POKE, 1, 
290 PRINT ‘‘ENFONCEZ LA TOUCHE ’STOP’” 
300 PRINT ‘DU MAGNETOPHONE."’ 


PEEK(1) AND 223 OR 32 


320 PRINT ‘‘D’ACCORD. MAINTENANT, ENFONCEZ”’ 


PLAY.” 


Les DATA du début correspondent 
à des valeurs étalonnées comme précé- 
demment et qui sont fonction du temps 
mis pour atteindre le programme voulu 
depuis la fin du programme de 
catalogue. 


Si vous faites partie de ces gens méti- 
culeux qui sont capables de conserver 
avec chaque cassette une fiche où son 
contenu est répertorié avec les numéros 
au compteur, ce programme ne vous 
servira strictement à rien ! Si vous avez 
les moyens de ne mettre qu’un pro- 
gramme par cassette, et si vous avez suf- 
fisamment de place chez vous, ou suf- 
fisamment peu de cassettes, il sera éga- 
lement dérisoire et inutile. Bonne chance 
à tous les autres ! 
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OUS possédez depui 
n'êtes pas encore 
chevronné ? Parfait, nous 
Voici donc une sorte de 
sous la forme d'un progre 
avantage de vous faire ci 
superficiellement !) le la 


de vous 


apporter de nouvelles connaissances sur le Basic 


de votre machine préférée. 


Nous avons décidé de tirer parti de 

la rapidité du Basic et des remar- 
quables possibilités graphiques du CPC 
464 en écrivant en Basic un mini- 
interpréteur Logo. Si vous l’ignorez, 
Logo est en partie un langage artistique. 
Une « tortue », matérialisée sous la 
forme d’une flèche, est susceptible de 
laisser sur l’écran les traces de ses dépla- 
cements, en fonction des ordres simples 
que vous lui donnerez : avance, recule, 
tourne. 


Répétons-le : notre version de Logo 
est évidemment très simplifiée, mais 
notre but est aussi de vous fournir une 
base de travail sur laquelle vous pour- 
rez greffer vos propres idées : ajouter 
par exemple la possibilité de définir des 
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D 


procédures, de traiter des variables, etc. 
Nous serons heureux de connaître le 
résultat de vos travaux, et d’en faire 
profiter nos lecteurs. 


Décortiquons 


le programme 


Avant d’aborder le mode d’emploi du 
programme, commençons tout de suite 
par en analyser le contenu. Nous vous 
conseillons de le taper au clavier tout en 
suivant nos explications. 


Ligne 100 : lors de la mise au point d’un 
programme, il est très utile de prévoir 
une programmation de touche qui per- 
mettra, sur une simple pression, de 
« reprendre la main » sans complica- 
tion. Cette ligne pourra être éliminée 
quand le programme sera parfaitement 
au point. Celle que nous avons redéfi- 
nie est la touche ENTER du pavé 
numérique. 

Lignes 160-190 : préparation de l’écran 
et des couleurs. Nous utiliserons le 
mode standard (40 colonnes) dont la 
résolution est excellente pour notre 
application. La fenêtre 1 contiendra le 
texte, tandis que la fenêtre 0 sera le ter- 
rain des manœuvres graphiques de la 
tortue. 

Ligne 200 : nul n’est à l’abri des 
erreurs ; il faut donc tout prévoir ! 
Lignes 220-240 : nous utiliserons deux 
tableaux. Le premier contiendra la suite 
des ordres donnés à la tortue, et le 
second mémorisera les 15 ordres aux- 
quels elle sait obéir (les primitives). Ce 
nombre pourra être augmenté à volonté, 
en modifiant simplement la valeur de la 
variable NP. 

Lignes 260-270 : voici les 15 primitives, 
que nous avons abrégées en deux ou 
trois lettres pour des raisons d’écono- 
mie (AV = AVance). Vous pouvez les 
écrire en entier si vous le voulez : vous 
en découvrirez l’inconvénient à l’usage. 
La signification des ordres est expliquée 
à la suite. 

Ligne 300 : pour éviter des complica- 
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AMSTRAD-GRAPHE 


tions inutiles, nous sélectionnons le 
mode de calcul en DEGrés, car nous uti- 
liserons les SINus et COSinus. En effet, 
le mode normal est en RADians, et nous 
n’y sommes guère habitués. Enfin, les 
coordonnées de départ de la tortue sont 
fixées au centre de la fenêtre graphique. 
Ligne 310 : divers paramètres sont fixés, 
et la tortue est sommée d’apparaître à 
l'emplacement prévu, grâce au sous- 
programme qui débute en ligne 1520. 
Lignes 330-610 : voici la partie princi- 
pale du programme, la plus utilisée. 
C’est ici que se font l’entrée des com- 
mandes destinées à la tortue, et leur 
traitement. 

Ligne 350 : la machine attend vos 
ordres, et elle les stocke temporairement 
dans une chaîne nommée L$. Le LINE 
INPUT est indispensable, car il accepte 
tout ce qui est tapé au clavier, ce qui ne 
serait pas le cas avec un simple INPUT, 
Si vous appuyez sur ENTER sans don- 
ner de réponse, un bouclage se produit 
sur cette même ligne. 

Ligne 360 : cette ligne est destinée au 
confort de l’utilisateur. Quand il frappe 
‘7, la ligne précédemment tapée réap- 
paraît, et les ordres qu’elle contenait 
sont réexécutés par la tortue. 

Lignes 380-490 : si l’utilisateur n’a pas 
tapé “1”, les ordres contenus dans LS 
sont découpés en éléments qui sont 
ensuite rangés dans le tableau C$. Le 
découpage se fait en fonction des espa- 
ces détectés dans L$. Ainsi, AV 10 DR 
90 occupe quatre cases dans le tableau, 
tandis que AV 10 DR90 (qui est une 
erreur) en occuperait trois. N’omettez 
donc pas de séparer toutes vos instruc- 
tions et leur(s) paramètre(s) éventuel(s) 
par un espace au moins ! S’il y a plu- 
sieurs espaces, ce n’est pas un problème, 
grâce à la routine de traitement qui les 
élimine à la ligne 440. A la sortie, NC 
représente le nombre de cases occupées 
par la suite de commandes. 

Lignes 510-610 : ces commandes sont 
maintenant exécutées l’une après l’au- 
tre par l’appel des sous-programmes 
correspondants. Si une commande n’est 
pas reconnue, c’est le sous-programme 
qui débute en 1830 qui est appelé, et un 
sympathique message d’erreur coupe 
court à l’exécution. La variable K repré- 
sente le nombre de cases à sauter pour 
passer à la commande suivante située 
dans C$. En cas d’erreur, K prend pour 
valeur 99, ce qui provoque la fin de la 
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KEY 129, "MODE 1:PAPER @:INK 1,Z21:PEN 1:LIST"'4CHR# (17) 
DHEA MED MOD OH ER DO AD NO 
7 PICOLOGO V,.1 # CPC 464 * 
# {C) JP LALEVEE ET LIST + 


MEME AE MESSE AE ME DH DH SH DER EACH ER OO D 


MODE 1:INK Q,1:INK 1: Z42INK 2, 2: INK 
WINDOW 1,49; 21, 2S:PEN G: PAPER 23:CLS 
WINDOW# 1,1; 40, 1, ZQ: PAPER#1, D:CLS#1 


7: 7: BORDER @ 


ON ERROR GOTO 1970 


DIM C$C99):REM COMMANDES 
NP=1S:REM NOMBRE DE PRIMITIVES 
DIM PR$ENP):REM PRIMITIVES 


FOR I=1 TO NP:READ PR$&CIdD:NEXT 
DATA DR; GA, AV, RE, FPOS, FCC; LC, BC, CT, MT, VE, CTR, ORI, REP, ADIEU 


C=1:AC=C:REM COULEUR D’ ORIGINE 
DEG:X=2720:V=240: X1=X: VI1=Y 
MT=1:8C=1:A=90:GOSUB 1520:REM DESSINE TORTUE 


ENTREE DES COMMANDES 
R$ CO "#" 
SWHILE L$=""3:PRINT'2"5;:LINE INPUT L$:WEND 
FIF L$="$"THEN EIS=1:PRINT"#";:FOR I=@ TO N!PRINT C#$c[35" 3 3NEXT:PRINT 


DECOUPAGE 
R$=UPPERS(L#) :LI$=LH:WHILE LEFTSCRS, 1)=" MERS=MIDÉSCRS, Z) : WEND 


NC=D:D=INSTR(O1,R#&," "JDE WHILE D 
C$S(NCI=LEFTSCRS, D-1) :R$=MIDS (RS, D+i > : NC=NC+1 
WHILE LEFT$CR#, 12=" ":RS=MIDSCRS, 2) : WEND 
D=INSTR(1,R$," "3 

WEND 

IF R$)" " THEN CH(NC)=R$:ELSE NC=NC-1 

REM NC=NOMBRE DE COMMANDES 

B1S= 1 : WEND 


*==s=2= TRAITEMENT COMMANDES = 
N=Q:K=0 

WHILE N(2NC 

KO$=CF (ND :NM=NP+1 

FOR I=1 TO NP:IF KO$S=PR$CI) THEN NM=I 

NEXT 

KIS=C$(N+1) :K2$=CS$SCN+2) 

ON NM GOSUE 380, 380, 630, 750, 1120, 880, 940, 940, 1080, 1080, 1760, 1690, 1800, 1250, 1 
1830 

NEN+K: WEND 

WEND 

PRINT"AU REVOIR !":END 


læassesexesesse AVANCE =szemexemsezxz 

IF K1$="" THEN PRINT"'AV A BESOIN D'UNE DONNEE, “:K=99: RETURN 
LEVAL(KIS)3IF L=@ THEN PRINT"AV N'AIME PAS “s5K1$:K=99: RETURN 
:6G0OSUB 1600:REM EFFACE TORTUE 

1F BC THEN GOSUB 1650:REM DERNIERE LIGNE 
ZX=L#CDS (A) +X: ZY=LMSIN CA) +Y 
IF ZX(10 OR ZX)6%Q OR ZY(90 


OR ZY)359@ THEN PRINT"LA TORTUE VA SORTIR !":G0SU 


B 1520:K=99: RETURN 


700 
719 
720 
750 
7840 


X1=X:Y1=YIX=2X 2 Y=2Y 

MOVE X1,Y1:IF BC THEN DRAW X: Y, C'ELSE XI=X:Y1=Y 
GOSUB 1520:REM DESSINE TORTUE 

Kz=2: RETURN 
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mnssatene 


750 
760 
778 
78@ 
798 
820 
810 
E 15 
520 
80 
840 
850 
869 
870 
8e0 
830 
300 
318 
920 
330 


Picologo 
‘Programme pour 
‘Amstrad CPC 464 
‘Auteur Jean-Pierre Lalevée 
Copyright LIST et l’auteur 


ss2=z RECULE ==smesenesezse 
IF Ki$="" THEN PRINT'RE A BESOIN D’UNE DONNÉE. “:K=99: RETURN 
LEVAL(KIS)D:1F Le@ THEN PRINT"'RE N'AIME PAS "Ki$:K=99: RETURN 
GOSUB 1EQ0:REM EFFACE TORTUE 

IF BC THEN GOSUB 165@:REM ANCIEN DRAW 

ZX=L+xCOS (180+A)+X:ZV=L#SIN(180D+A) +Y 


IF ZX(1@ OR ZX)>630 OR ZY(9Q OR ZY)35Q THEN PRINT'"'LA TORTUE VA SORTIR !":G60SU 


20:K=99: RETURN 

1F BC THEN GOSUB 1650:REM ANCIEN DRAW 
X1=X:YI=YIX=IX:V=2Y 

MOVE X1,Y1:1F BC THEN DRAW X,Y,C'ELSE X1=X:Y1=Y 
GOSUE 1S520:REM DESSINE TORTUE 


K=2: RETURN 

lazssesesssesss FOC seep-eessezsezss 

IF Ki$="" THEN PRINT"'FCC À BESDIN D'UNE DONNEE, ":K=99: RETURN 

IF Ki$("D" DR K1$)"Z" THEN PRINT'FCC N'AIME PAS “K1$:K=99: RETURN 
AC=C:C=VAL(K1$):GOSUR 1570 


K=2:RETURN 


BC=ABS(K@$= 

K=1:RETURN 

’azressmsscene DR / GA =zmm=senmzeze 

IF Ki$="" THEN PRINT KGS$" A BESOIN D’UNE DONNEE, ":K=99:RETURN 


IF VAL(KI$)=9 THEN PRINT K@$" N'AÎME PAS "Ki$:K=99:RETURN 
ANG=VAL(K1$):IF KD$="DR'THEN ANG=-ANG 

A=R+ANG: IF. A) T60 THEN A=A-I60 

GOSUE 1600:REM EFFACE TORTUE 

GOSUE 1E6S5D:REM ANCIEN DRAW 

GOSUB 1SZ20:REM DESSINE TORTUE 

K=2: RETURN 


Pansesenceuse CT / MT =somezenmense 
IF K@#$="MT" THEN MT=1:GO0SUE 5 
K=1:RETURN 


, == FPOS (— =) =zzzzzzzze 

1F LEFT$(K1$,1)4€)"€" THEN PRINT"'FPOS VEUT DES (2. ":K=99: RETURN 

IF K2$="" THEN PRINT'FPOS VEUT 2 DONNEES, ":K=99: RETURN 

XP=VAL(MIDS(K1$, 22)3:1F ARSCXPI)319 THEN PRINT'FPOS N'AIME PAS": XP:K=99:RETU 


IF RIGHTS (KZS$, 19 €)"2" THEN PRINT'FPOS VEUT DES (3. ":K=99: RETURN 
YPSVAL(LEFT$SCK2$, LENCKZ#$)—-19} 

IF ABS(YPI)}157 THEN PRINT'FPOS N'AIME PAS "YP:K=99:RETURN 

GOSUB 16G0:REM EFFACE TORTUE 

GOSUB 1ESQ:REM ANCIEN DRAW 


X1=X:YI=YIMOVE X, YiX=320+XP:Y=240+YP:IF RC THEN DRAW X,Y,C 

GOSUB 1570:REM DESSINE TORTUE 

K=T: RETURN 

: 

'ansenemeesess REP =esscssessesse 

IF K1$ THEN PRINT"'REPETE À BESOIN ENCORE DE DONNEES. “:K=99: RETURN 


REP=VAL(KISI2IF REP(1 THEN PRINT'REPETE N'AIME PAS "Ki$:K=99:RETURN 


REM ::::: RECHERCHE DU À ti2252233 
IF LEFT#SCK2$, 13 (0 ®C" THEN PRINT"'IL MANQUE UN £":K=98:RETURN 
C$CN+2)=MIDSCKZS, 2) 


REM ::::: RECHERCHE DU } tissssts 

I=N+2:WHILE IC(=NC AND RIGHT#(C#t1), 1) ()"}"21=1+1:WEND 
IF I} NC THEN PRINT"IL MANQUE UN }":K=99: RETURN 
LR=I:CS(I)=LEFTS(CSCI), LENCESC1))-19 


: > 
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D 


boucle WHILE en ligne 590, et le retour 
à la ligne 390, pour une nouvelle acqui- 
sition d’instructions. 

Lignes 630-1960 : ici commencent tou- 
tes les routines nécessaires, qui sont de 
deux types, celles qui correspondent à 
un ordre donné à la tortue (AV, RE, 
FCC...) et d’autres, plus élémentaires, 
qui sont elles-mêmes appelées par les 
précédentes (dessin du trait, représenta- 
tion de la tortue...). 


_Laliste 


des primitives 


Chaque sous-programme contient ses 
propres traitements d’erreurs : contrôle 
de la syntaxe, contrôle des paramètres 
accompagnant la commande, qui sont 
contenus dans Ki$ et K2$. La routine 
REP (lignes 1250-1500) est de loin la 
plus complexe. A ce sujet, signalons que 
les {] ont été remplacés sur notre liste par 
des accolades, à cause d’une imprimante 
inadaptée. À vous de restituer les cro- 
chets carrés. 


Pour terminer, voici la liste en bon 
français des primitives : DRoite, GAu- 
che, AVance, REcule, FixePOSition, 
FixeCouleurCrayon, Lève Crayon, 
Baisse Crayon, Cache Tortue, Montre 
Tortue, Vide Ecran, CenTRe, ORlgine, 
REPète, ADIEU. Quant au mode d’em- 
ploi, il tient en quelques lignes : 

e LC, BC, CT, MT, VE, CTR, ORI et 
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AMSTRAD-GRAPHE 


1380 REM ::::::: TRAITEMENT :3::3525t5:3: 
1330 FOR J=1 TO REP 

11409 IeN+2#WHILE I (ELR 

1419 KD#=C$ CI) :NM=NP+1 

142G FOR H=1 TO NP:1F KBS=PR$&CH) THEN NM=H 
1430 NEXT 


1449 IF NM=14 THEN PRINT"'REP NE SAIT PAS SE REPETER !":K=99:J=LR:J=REP:GOTO 1470 


1450 K1$=C#C1+1):K2#=C$C1+2) 


1468 ON NM GOSUB 989, 380, ET0, 750, 1120, 560, 940, 940, 1080, 1080, 17E0, 1690, 1800, 1250, 


1860, 1830 
1470 I=I+K:WEND 
1489 NEXT J 


1490 CSCN+2)="4"4+CSCN+2) CS CLRI=CHECLRI+"Y":REM RAJOUTE LES {} 


1502 K=LR+1: RETURN 


== DESSINE LA TORTUE == 


1539 IF MT=B THEN PLOT X:V,C:RETURN 
1548 TX1=1@#C0S CA) +X: TY1=1DHSINCAI+Y 
1550 TX2=10+C0S(A+90)+X:TY2=10*SINCA+AD) +V 
1569 TXZ=10@+C0S(A-9D)+X:TYTI=1D#SINCA-9D) +Y 
1570 MOVE TX2, TY2:DRAW TX1, TY1, C!DRAW TXE, TYZ, CE PLOT X,:Y,C 
1588 RETURN 


== EFFACE LA TORTUE ===22== 
1619 IF CT THEN PLOT X; Y; 0: RETURN 


1620 MOVE TXZ;, TYZ:DRAW TX1,TY1,B:DRAW TXZ, TYT, Qi PLOT X,V,0 


1620 RETURN 


1650 ’==== REPASSE LIGNE PRECEDENTE === 
166@ IF BC THEN MOVE X1, Yi: DRAW X, Y, AC: AC=C 
1679 RETURN 


1690 ’====222= = 
1704 GOSUB 16@@#REM EFFACE TORTUE 
1710 GOSUR 165@:REM ANCIEN DRAW 
1720 X=220:Y=240:X1=X:Yi=Y:A=S0 


1730 PLOT X:Y,C:1F BC THEN GOSUR 152@:REM DESSINE TORTUE 


174Q K=1:RETURN 


1760 ‘'========= VIDE ECRAN ===="222222 
1770 CLS#1:G60SUB 1S520:X1=X:YI=Y 
1780 K=i:RETURN 


ORIGINE = 
1810 EBC=1:CLS#1:GOSUR 1720:K=1:RETURN 


1850 === COMMANDE INCONNLE == 


184Q PRINT'JE NE SAIS PAS FAIRE ":5KG$S:K=99: RETURN 
1€50 : 
1860 ‘=== ==s2semse ADIEU ? sense 


1870 PRINT'VOUS VOULEZ ME QUITTER CO/NY ?" 
1880 R$="":WHILE R$&Ç'N" OR R$&) "0" 
1890 R$=UPPERSEINKEYS) :WEND 


1900 1F R$="0" THEN R#="#":ELSE PRINT'ON CONTINUE !" 


1919 K=99:RETURN 


1920 : 
1930 ’=zz=esesesses HUG =====s2eeee2ese 
1948 PRINT'AIE !... LA TORTUE N'AIME PAS LES BUGS." 


195@ PRINT"L'INSECTE EST DANS LA LIGNE'"3ERL 
196 END 
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ADIEU s’utilisent sans paramètre. 

e AV, RE exigent une valeur en nom- 
bre de points-écran (les pas de la tortue). 
e DR, GA demandent une valeur angu- 
laire de rotation en degrés. 

e FCC nécessite le numéro de la couleur 
choisie (PEN du Basic, de 0 à 3). 

e FPOS exige deux paramètres à placer 
entre parenthèses, qui sont des coordon- 
nées absolues par rapport au centre de 
l'écran graphique. Exemple : FPOS 
(— 50 90). 

e REP est plus complexe. Pour dessiner 
un cercle, la syntaxe serait : REP 360 
[AV 1 DR 1]. Ce qui est long à dessi- 
ner, mais on peut faire le même cercle 
plus rapidement : à vous de chercher ! 
e ORI efface tout l’écran et remet la tor- 
tue en position de départ, tandis que VE 
efface, mais laisse la tortue à l’endroit 
où elle se trouve. 


Achevons ce petit tour avec une 
remarque ayant trait à l’art de la pro- 
grammation. Certains puristes considè- 
rent que la valeur d’un programmeur se 
mesure à l’inverse du nombre de GOTO 
que contiennent ses programmes. Ils 
n’ont pas toujours tort puisque certains 
programmes deviennent impossibles à 
modifier à cause de GOTO inconsidé- 
rés. Aussi, puisque le Basic Amstrad est 
un peu structuré (pas beaucoup, 
hélas !), nous nous sommes amusé à 
limiter les GOTO de notre programme. 
Mais il n'empêche, allez, c’est vrai que 
parfois un bon GOTO est plus simple 
qu’un WHILE torturé. Essayons tout 
de même de ne pas en abuser ! 


Jean-Pierre LALEVÉE 
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MISEZ P'TIT OPTIMISEZ 


LA LIGNE DROITE 
a LA BONNE PENTE 


érationnelle de votre HP-41C, EUR + 
milliseconde perdue et rogner le moindre octet ee Aer 

Ou si, à l'inverse, vous échappe parfois un P 

mmes en Notation Polonaisé ne. __ 
Alors voici qui doit vous intéresser. En matière . ee ben _ 
jamais certain d’avoir fait aussi bien que possible / ct 
défis — vos défis — se succèdent : des programmes toujour 


plus rapides... Et les records vivent ! 


$ I jongler avec la pile op 


quotidien... 
recherche des progra 


Le plus court chemin entre deux 
points est encore, c’est bien 
connu, la droite. Dans un plan (O, X, 
Y), un point se définit par ses deux coor- 


données X et Y. Connaissant les coor- 
données de deux points du plan, calcu- 
ler l’équation de la seule droite passant 
par ces deux points. Tel était le défi 
publié dans LIST n° 6. 
Une droite se définit quant à elle par 
* deux coefficients a et b de telle manière 
que tous les points alignés qui la com- 
posent vérifient l’équation Y = aX +b. 
Le graphe ci-contre représente une telle 
droite dont l’équation est : Y =3X +7. 
Ainsi, quelle que soit la valeur choisie 
sur l’axe des X, on calcule l’autre coor- 
donnée Y du point par 3X+7. Les 
débutants le vérifieront aisément et 
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reconnaîtront (c’est l’occasion) que le 


notons que | coefficient a de l’équation est la pente 
pour X=0 de la droite tandis que b est la valeur à 
Y vaut b l’origine O (à zéro). 

et pour X Le programme de référence occupait 
vartantde | 12 octets et opérait en 28/100° de 
Lol seconde pour trouver les coefficients a 
Y varie de 


et b de la droite passant par les points 
(13,17) et (3,11). Beaucoup ont fait aussi 
bien, seuls deux lecteurs ont fait mieux : 
Eric Levenez et Didier Renevot. En 
11 octets (sans compter ni le LBL de tête 
ni le END final) ils obtiennent la solu- 
tion en... 2 centièmes de seconde de 


aena 
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, 
. 
Ps .” 
l 
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moins (26/100°). Les plus belles écono- 
mies sont celles des ultimes bouts de 
chandelles. 


Y1=aX1+bet Y2=aX2+b, soit deux 
équations pour deux inconnues. De 
celles-ci, on tire : b=Y1—-aX1=Y2- 
aX2 et, donc, YI—-Y2=a(X1 - X2). 
Ainsi avons-nous trouvé l’expression 


de a en fonction des coordonnées des 
deux points : a=(Y1- Y2)/(X1 - X2). 


Droite 

Programme pour HP-41C 
Auteurs E. Levenez et D. Renevot 
Copyright LIST et les auteurs 


La routine tient en 10 pas de pro- 
gramme : introduire pour les deux 
points leurs coordonnées Y et X (par 
analogie avec les noms des registres de 


la pile) : Y1 ENTER X1 ENTER Y2 to On reconnaît évidemment l’expression 
ENTER X2 XEQ ‘ED’. Vingt-six cen- 03 RDN de la pente de la droite (rapport des 
tièmes de seconde après, les coefficients 04 ST-Z accroissements respectifs de Y et X). 
a et b de l’équation de la droite sont, 05 RDN Pour trouver l’expression de b, il suf- 
respectivement, dans les registres Y et 06 / fit de remplacer dans une des deux équa- 
X de la pile opérationnelle. 07 STO T tions de départ le a par sa formule : 
L’algorithme de calcul employé est se nu Y2=aX2+b devient Y2= X2((Y1 — Y2)/ 
évidemment très simple puisque le pro- 10 END (X1-X2))+bet, donc b=Y2-X2((Y1 


gramme tient en si peu de lignes. Sui- 


— Y2}/(X1 - X2)). 
vons le cheminement. On a, à la fois, | 


Qui DIT MIEUX ? 


1772 du second degré Y =aX?+bX+c, on connaît. Sa résolu- 

tion fut d’ailleurs le tout premier défi de Misez p'tit (’Op n° 15). 
Résoudre une équation, c’est en trouver les racines (les zéros, c’est-à-dire les 
valeurs de X telles que Y =0). Mais sauriez-vous trouver la valeur de X qui 
maximise ou minimise le résultat Y ? 


H est fortement recommandé de prêter attention au calcul de la fonction 
dérivée (c’est l’occasion ou jamais de réviser). 


Mon programme occupe 28 octets pour 19 pas de programme (sans comp- 
ter ni le LBL de tête ni le END final). On introduit en pile, dans l’ordre, les 
coefficients de l'équation a, b et c. Le résultat se trouve en X en fin de calcul 
(et Y, l’extremum, se trouve en Y). Pour l’équation Y = 3X2-— 4X +5 le résul- 


Ces deux expressions de a et b sont 
tat 0,666. (soit 2/3) est trouvé en 63 centièmes de seconde. 


calculées par le programme. Il suffit 
d’en suivre le cheminement opération 
par opération pour le constater. Diffi- 
cile d’optimiser plus encore le pro- 
gramme des deux vainqueurs du défi. 
Mais, il ne faut jurer de rien. 


Christophe FAUTRES 


NDLR : si vous trouvez cet extrernum, pouvez-vous déterminer s’il s'agit d'un maximum ou bien 
d'un minimum ? Ce sera le sujet d’un prochain défi. 


Jean-Christophe KRUST 
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INCURSIONS 
DANS LE BASIC 


Le Basic du MOS réside dans une 

EPROM (Erasable Programma- 
ble Read Only Memory, mémoire 
morte effaçable et programmable avec 
un outillage spécialisé) de 16 Koctets, 
implantée tout en haut de la mémoire, 
entre les adresses $C000 et SFFFF. 
L'étude du premier Koctet peut se 
révéler pleine d’enseignements pour le 
curieux. 


LA BOÎTE 
A MALICES... 


RENEZ un programme et ôtez-en très 

soigneusement toutes les astuces, des plus 
élémentaires aux plus subtiles. Vous êtes certain 
de n'en avoir laissé passer aucune ? Bien, Que 
reste-t-il ? Rien, ou peut-être une bogue ou deux 
(tout le monde peut se tromper). En fait, tout 
Programme n'est qu'une suite d'astuces. Dans les 
pages qui suivent, vous en trouverez un grand 
nombre, Certaines sont de portée très générale. 
D'autres ne valent que pour un matériel 
particulier, Mais dans tous les cas, vous aurez 
intérêt à être curieux, à fouiner dans la boîte à 
malices. Même s'il ne s’agit pas de votre machine, 
vous trouverez souvent des idées à reprendre. Par 
ailleurs, vous avez sans doute vos propres 
recettes, vos façons de faire... Si ce ne sont pas 
des secrets que vous cherchez à conserver 
_jalousement, faites-en part au journal. Celles qui 
nous paraitront les plus intéressantes enrichiront 
à leur tour la boîte à malices. Tous les lecteurs 
pourront ainsi en profiter. 


Les adresses $COAO à SC25E renfer- 
ment la liste des mots clés acceptés — 
du moins en théorie — par le Basic 
(voir le tableau des premiers octets, 
page suivante). 


A leur sujet, il est possible de faire 
quelques remarques : 
: e l’absence de quelques mots clés est 
un phénomène tout à fait normal si 
: l’on prend en compte le fait que l’es- 
: pace mémoire occupé par ce Basic est 


LIST 
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TR 


: Cage DS D9 DE @8 DS SE CA 6A DE AB 
: C@1@ D7 RS D8 @B CC D4 CC 11 CE 64 
: CO206 ES RE D6 27 21 E9 21 F9 DS E@ 
s CO3e ER Bi CC 52 CC 2S CC 1E CC 67 
1 CO4Q E4 6E ES DE E4 69 E7 14 E7 1B 
1 COSB 26 EB 28 23 2E EB Ci D4 C2 na 
1 CO6@ FF ÀE @4 @Q G@ O3 @2 79 D2 AC 
: C@7e 7C DS 1C 7F D6 Bd Sa CR 86 46 
: COsa C8 SD 28 C8 98 7A CS 77 78 DS 
1 CO9s0 65 64 C8 6D 03 D4 C8 79 DS D4 
1 CORG 45 4E C4 46 4F 02 4E 45 58 Dd4 
: COBG CD S2 45 41 C4 FF 47 CF S2 SS 
1 COCA Sd 4F 52 CS 52 45 Sd SS S2 CE 
: CODO 4F DO 45 4C 53 CS 4 52 4F CE 
: COER 45 46 S3 54 O2 44 45 46 49 4E 
1 COFQ C7 FF 4F CE S4 SS 4E CS 45 52 
: C10@ SS 4D CS 41 S5 54 CF 44 45 4C 
1 C11@ 41 S4 CS 48 4C D 43 4F 4E 53 
: C12@ D4 40 4F 54 4F D2 53 4B 43 S@ 
: C13Q 45 45 06 43 4F 4C 4F D2 4C 49 
: C140 41 S4 54 52 C2 44 45 C6 SA 4F 
: C1S@ D4 43 4F 4E Ed 4C 49 S3 Dd4 43 
5 C160 DS FF dE 45 07 53 41 S6 CS 4C 
: 
3 
: 
3 
: 
3 
: 
: 
0 
3 
: 
3 
: 
: 
: 
$ 
: 
: 
1 
: 
3 
: 


C17@ 47 CS 4F SQ 45 CE 43 4C 4F 53 
C18@ SG 45 CE S@ 4C 41 DS S4 41 42 
C198 46 CE 53 50 43 AR 55 92 49 4E 
Cin@ CC 45 52 O2 4F 46 C6 54 48 45 
Ci8@a 45 D@ AB AD AA AF DE 4i 4E C4 
CiC@ 51 O6 49 40 Où 40 4F C4 Cu BE 
C10@ 4E D4 41 42 O3 46 SZ CS 53 Si 
C1EQ@ DOG 4% 4F D3 53 49 CE S4 41 CE 


C2@8 4F C6 43 49 4E Dd FF FF 486 49 
CZ18 S3 S4 49 43 CR S3 Sd 52 49 C7 
C220 54 A4 52 49 47 48 S4 Ad 40 45 
Cz3@ D2 S6 41 Se Sû S4 O2 52 4E C4 
C24Q 49 4E SG 55 O4 43 S3 52 4C 49 
C2S@ 53 43 S2 45 45 CE SA 4F D S@ 
C260 JE CF 97 D@ SC CS E2 CR 61 Où 
C278 4B CS ER C4 &A CS C1 CS ES CS 
C286 1F CF 2@ CE EC CE EF CE E9 21 
C290 24 CF 20 22 36 CE CS ES FE E8 
C2AG 6C EB CE ES E9 E8 FA Eé Ra E& 
C2B@ 1C ES 68 CC O0 CD 74 C4 CF Eu 
C2C@ F9 C4 22 E@ A3 E2 &C E2 S8 Eli 


quelque peu réduit par rapport à celui 
du « grand frère » TO7. Dommage 
pour les puristes. Le LET a fait les 
frais de cette opération d’élagage, 
accompagné en cela par les OCT$, 
CDBL, CSNG, DEFFN, et d’autres 
dont l’absence est regrettable ; 
e des mots clés apparaissent dans la 
liste (allez savoir pourquoi !) alors que 
leur emploi se solde par un message 
d’erreur : c’est le cas, par exemple, de 
AUTO. 

Enfin, il est permis de s’interroger 
sur la présence de DEFSNG, alors que 
DEFDBL a disparu corps et biens. 


Les adresses $C25F à $C2D1 con- 
tiennent une première table des adres- 
ses d’exécution des routines correspon- 
dant aux différents mots clés. En voici 
donc quelques-unes, que vous pourrez 
essayer : 


Exec 


&HC49E 
&HC54B 
&HCFIF 


Instruction 


END 
RUN 
TRON 
TROFF 
CLS 
BEEP 
CONT 
LIST 


&HCF20 
&HE8FC 
&HE8FA 
&HC4CF 
&HE06A 


Chacun pourra compléter la liste, la 
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C1FQA CE S3 Sd 52 A4 56 41 CC 41 5x C 


Uvv, U. JMy+Y1l4H. 
WE. LTL.K$#K.L.LE 
#DV'IDISU "<19<. 
CILRLAL.L'L/PYCE 
#$.#r#2".7.$6c-"C 
&+<#.+ATRPE, G#H. 


<U. ?PV4PH, FH. <H.2 
H. He. 3S73SJ$#H7$H 
#$H-STHIUTHBUSH< 
EHDFORNEXTOATADI 
MRERD?GORUNIFRES 
TORERETURNREM"ST 
CPELSETRONTROFFO 
EFSTROEF INTOEF SN 
G?ONTUNEERRORRES 
LMEAUTODELETELOC 
ATECLSCONSOLEPSE 
TMOTORSKIPFEXECE 
EEFCOLORL INEBOX? 


GECPENHCLOSEINPEN 
PENPLAYTAB(TOSUE 
FHSPCEUSINGUSRER 
LERROFFTHENNOTST 
EP+-#/ THNCIORXORE 
QYIMPMHOD®S=CSGHI 
HTRBSFRESGRLOGEX 
FCOSSINTANPEEKLE 
NSTRS$SYALASCCHRSE 
OFCINT?P?PFIKHEXS7 
STICKSTRIGGRSLEF 
T$SRIGHT$SMIO$INST 
RYARPTRRNDINKEY$ 
INPUTCSRLINPOINT 
SCREENPOSPTRIG. D 
«O.PSE"J11319EÆE 
KE%D. EREXEX0"EXQ 
«0 N,N/N219F,2.0 
$0-"6NESD I <RBT., 
rtNCoR sagas. C,198& 
.féLM:DQ #0T@.! 
90" #". "XD REC! 


Les premiers octets du Basic MO5 


6A C4 DE FG &@ 21 
E9 Ei R8& E8& CS 21 


nôtre ne concernant que les routines 
les plus simples, celles qui n’ont en 
principe besoin d’aucun paramètre 
pour pouvoir fonctionner. Vous rem- 
placerez ainsi dans vos propres pro- 
grammes le END par un EXEC 50334, 
ce qui fait tout de même plus sérieux. 
Et d’ailleurs, pourquoi faire simple si 
on peut faire compliqué, n’est-ce pas ? 


Il est amusant de constater que 
REM et ELSE commencent à la même 
adresse. Ce qui a pour effet secondaire 
d’autoriser le remplacement du pre- 
mier par le second, tandis que l’inverse 
n’est pas forcément vrai : 100 ELSE 
ceci est une remarque fonctionne donc 
parfaitement. Tandis que : 200 IF 
A > 10 THEN PRINT A%+2 REM 
PRINT A/2 n’est pas apprécié par 
l’'interpréteur ! 

Vous pouvez poursuivre les investi- 
gations dans les entrailles cachées de 
votre machine et faire ainsi d’intéres- 


santes découvertes... que vous nous 
ferez partager sans doute. 


Robin BOIS 


Purvrs. IR,9R.<R. : 


ATTREDEFPCUKEPRIN 
TCONTLISTCLEARDOO , : 
SPNEUSAVELORDMER 


UNE MEILLEURE 
PROTECTION 


Sur la FX-602P, un mot de passe 
de quatre caractères protège l’en- 


itrée dans la liste d’un programme. 


Mais on peut très bien alors « faire 
ourner » le programme. 


Pour empêcher cela, il fallait un 


+ petit utilitaire. Le mot de passe de celui 


qui est présenté ici est : 23456 EXP 5. 
Il ne faut manquer ni de réflexe ni de 
mémoire pour l’introduire au moment 
où il est demandé. La présence de trois 
PAUSE ne suffit pas toujours. 


Et n’oubliez pas de protéger aussi ce 
petit utilitaire par un mot de passe. On 
n’est jamais trop prudent. 


Alain CHAUVAUX 
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UNE NOUVELLE INSTRUCTION 


Voici un court programme qui 

vous permettra d’initialiser une 
disquette comportant une nouvelle ins- 
truction du système d’exploitation des 
disquettes (SED), à la place de la fonc- 
tion VERIFY. Cette instruction est 
sollicitée par FREE et indique à l’uti- 
lisateur le nombre de secteurs restant 
libres sur la disquette. Elle peut être 


employée soit dans un programme : 
10 PRINT CHRS(d); ‘‘FREE”’ 
soit comme une commande, en tapant 
directement FREE au clavier. On 
aura, auparavant, effectué un 
CATALOG. 

Pour modifier le SED et installer ce 
que les Anglais appellent un ‘‘patch””, 
le programme utilise une routine dite 


T "Apple Il, I1+ ou Ile 
ral Marcel Cottini 
Copyright LIST et l’auteur 


10 HEXS = "BéBS:A9 BD 20 FO FD A9 00 85 40 85 41 A2 8C BD F2 B3 04 90 06 


Eé 40 DO 02 Eé 41 DO FS CA DO EF A6 40 A% 41 AC 00 EO CO 4C FO 03 4C 


1B ES 4C 24 ED NA9O2:44 52 45 CS 00 N9DS4:B2 Bé NA93F:40 00" 


20 HEXS = HEXS + * ND9C6G* 


30 FOR I = 1 TO LEN (HEXS) 


40 POKE S11 + 1, ASC { MIDS (HEXS,1,1)) + 128 


30 NEXT : POKE 72,0: CALL 


- 144 


UN MOUCHARD 


Lors de chaque extinction, le X-07 mémorise l’heure qu’il est dans trois 

octets situés en fin de mémoire vive. Les heures, minutes et secondes sont 
conservées aux adresses RAMEND + 2, RAMEND + 3 et RAMEND + 4, 
RAMEND étant le pointeur de fin de mémoire. Le programme proposé ici per- 
met d’afficher l’heure à laquelle votre machine s’est éteinte et dans certains 
cas (qui sait ?) l’heure à laquelle votre fils ou votre frère s’est couché. Plus 
sérieusement, ce programme peut aider à calculer la durée moyenne de fonc- 
tionnement de votre X-07 ainsi qu’à calculer avec précision la durée de vie de 
vos piles. Mais vous trouverez certainement d’autres applications. 


RAMEND 


40 H=PEEKCAD+2) : 
50 M=PEEKCAD+S) : 
6@ S=PEEK(AD+4 ) : 


DANS LE CANON 


Patrick LECLERCQ 


19 REM HEURE DE LA COUPURE DU SYSTEME 

20 DEFFNPCX)=PEEKCX)+PEEK(X+1)%x256 : ? LECT 
URE D’UN POINTEUR 
30 AD=FNPC8&H212) : 


CALCUL DE L’?ADRESSE DE 


LECTURE DES HEURES 
LECTURE DES MINUTES 
LECTURE DES SECONDES 


de S.H. Lam qui mérite quelques 
explications. À ce sujet, je tiens à 
remercier Jean-François Duvivier pour 
son article « S.H. Lam, une routine 
bien pratique » publié par la revue 
Pom's. 


La technique consiste à placer dans 
une chaîne de caractères des comman- 
des à destination du moniteur. On 
peut ainsi installer en mémoire un 
court programme en langage-machine 
avec une relative facilité et sans un 
nombre invraisemblable de POKESs ou 
de READ/DATAs. L'installation en 
mémoire s'effectue en trois étapes. 


La chaîne est d’abord scindée en 
caractères qui sont placés dans le tam- 
pon du clavier les uns à la suite des 
autres. Cette opération occupe le tam- 
pon à partir de l’adresse $200 (512 en 
décimal). Dans un deuxième temps, le 
CALL-144 appelle un sous- 
programme résident qui met en œuvre 
les routines examinant le tampon- 
clavier et vérifiant l’exécution des 
commandes inscrites dans la chaîne de 
caractères. En dernier lieu, il faut reve- 
nir au Basic. Pour ce faire, il suffit de 
se brancher à l’adresse $D9C6, ce qui 
correspond à un retour au mode RUN. 


Pour inclure FREE dans le SED), il 
faut, bien sûr, que les adresses $B6B3 
à $B6FD n'aient pas été déjà utilisées 
par un ‘‘patch”’. On lance le pro- 
«gramme puis on initialise la disquette 
“en tapant ‘INIT nom du pro- 
. ramme’”’. À noter que la fonction 
FREE, justement, ne supprime pas 
NIT, mais VERIFY. 


ces 


Marcel COTTINI 


HORLOGE 
GRAPHIQUE 


Vous pourrez désormais placer 
votre téléviseur sur votre table de 
chevet ! 


Ce programme simule le fonction- 
nement d’une pendule à cadran à trois 
aiguilles. Il fonctionne sous tous les 


modes graphiques ou demi-graphiques 
pairs (4 couleurs). Totalement indé- 
pendant du Basic, grâce à sa gestion 
par l’interruption 7, il pourra aisément 


78 PRINT'Le systeme à ete coupe a :" 
88 PRINTH;"h"53M;"mn" 3;S"s" 
38 END 
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s'intégrer dans des jeux de société ou 
de simulation. 


Le chargeur Basic réserve un espace 
suffisant à la routine machine dans le 
tableau MLP(110). Si ce programme 
est intégré dans un autre logiciel, il 
faudra veiller à ce que ce tableau soit 
déclaré en premier, afin qu’il com- 
mence effectivement en #2F0. Il est 
possible d’accéder directement aux 
variables de l’horloge, pour une utili- 


ET J'ÉCONOMISE 


L’horloge peut également servir de 
chronomètre au dixième de seconde 
(évidemment, pas pratique d’empor- 
ter le Dai sur un terrain de sport !). 
Pour cela, faire POKE #30A,5. Atten- 
tion : un passage direct en mode 0 
(LIST, par exemple) peut parfois 
« planter » le Dai, si l’interruption 7 
n’est pas restaurée. Avant toute mani- 
pulation, il vaut donc mieux faire 
RUN 80, qui remet les choses dans 


sation quelconque. Ainsi, PEEK l’état initial. 
(#2F5) donne le nombre de secondes, 
PEEK (#2F6) le nombre de minutes, 
et INT(PEEK(#2F7)/3) MOD 12 le 


nombre d’heures. 


Alain NORMAND 


LTD 
A, 


' 
£ 4 VA AL 


Horloge graphique 
Programme pour Dai 
Auteur Alain Normand 
Copyright LIST et l’auteur 


19 REM 

28 REM ##%% HORLOGE GRAPHIQUE ##% 

30 REM 

40 CLEAR 1080: DIM MLF(11@) 

50 RESTORE:FOR I=1 TO 24:READ DUMMY:NEXT 

68 FOR I=#2F@ TO #4A1:READ DA:FOKE I,DA:NEXT 
70 GOTO 90 

80 POKE #76,#A9:POKE #71,#D9:END 

9a MODE @:COLORT 4 15 4 4 


100 PRINT CHR$ (12): PRINT : PRINT 

119 INPUT "COORDONNEES DU CENTRE DE L'HORLOGE (X,Y) ":3X,Y 
120 POKE #2F0,Y:POKE #2F2,X MOD 256:POKE 42F3, INT (X/256) 
130 PRINT :PRINT :INPUT "HEURE (H,M,9) "5H,M,S 

149 IF H<@ OR M<G OR 5<0G GOTO 120 

159 H=(CH MOD 12)%3:M=M MOD 60:5-S MOD 60 

169 IF M>19 THEN H=H+1:1F M>39 THEN H=H+1 

170 POKE #2F5,S:POKE #2F6,M:POKE #2F7,H 

189 MODE 64:COLORG @ 5 109 15:PRINT CHR$ (12): 

199 POKE #70,U:POKE #71,3 

209 RESTORE:FOR I=1 TO 12:READ C,D:C=X+C: D=Y+D 

21@  FILL C,D C+2,D+2 23:NEXT I 

228 DATA -1,31,15,27,26,16,50,-1,26,-18,15,-29 

238 DATA -1,-35,-17,-29,-28,-18,-32,-1,-28,16,-17,27 

235  REM 

248 DATA #00,#00,H#00,#00,#00,#00,#20,#00,#UD,#00,#00,#00,#00,#00, #00, #00 
25Q DATA #E5,#DS,H#CS,#FS,H21,H#F4,#02,#34,47E,HFE,#22,HC2,#9B,#03,#356,#00 
26@ DATA #21,HF5,#02,#7E,#97,#SF,ACD,H#A2,#0S,#21,HFS,#02,#34,H7E,#FE, #30 
274 DATA #C2,H#5A,H03,#36,#00,#23,#7E,#07,HSF,HCD,#A2,H03,H#21,4F6,402,h34 
280 DATA #7E,#FE,#14,H#CA,#42,H03,H#FE,#29,#CA,#42,#03,#FE, SC, #C2, SA, #05 
29 DATA #36,#00,H23,H#7E,#07,HSF,#21,HE0,H0S,HSE,#14,HCD,#A7,#03,#21,#F7 | 
300 DATA #02,H#34,H7E,#FE,#24,H#C2,#5E,#OS,#36,#00,#21,4F7,H02,H7E,#97,45SF 
310 DATA #21,HE0,H03,H3E,#15,#CD,H#A7,HOS,H21,#FG,#02,47E, #07, #SF, HSE, #15 
320 DATA #CD,#A4,H03,H#21,#F5,H02,#7E,#07,4SF,#3E,#16,#CD,H#A4,#OS,H#1E,#78 
330 DATA #3E,#24,H32,HCE,#OS,H3E,#lé6,#21,#2B,#OD,#22,#CB,40S,#CD,HA4,#05 
348 DATA HSE,H21,H32,HCE,#05,#21,#00,H#00,#22,#CB,#0S,HF1,#C1,HD1,HE1,#CS 
35@ DATA #A9,H#D9,#3E,#14,H21,#29,#04,HFS,4HAF,447,#S7,h19,HSE,#23,#4E,#B1 
360 DATA #F2,#E5,H#03,#06,#FF,#20,#F0,H#02,H7D,#09,#45,4H4F,HAF,HES ,#F2,4HC3 
370 DATA #0S,#16,HFF,H2A,#F2,H02,HES,#19,4EB,HE1,HF1,#00,#O00,#EF,#21,#D0 
380 DATA #21,#00,H#00,#22,#17,#01,#21,HA97,HD9,422,#70,#00,HCS,#U2,#E6, #00 
394 DATA #00,#11,H#035,#11,#06,#10,#09,#0F,#GB,#@D,#OD,HGB,#OF ,#U9,h#10,406 
408 DATA #11,#03,#11,H#00,H#11,#FD,#10,HFA,#OF,H#F7,HOD,HFS,#OB,#FS,#09,HF1 
419 DATA #06,#FD,HOS,HEF, HOG,HEF ,#FD,HEF,#FA,HFO, F7, #F1,#FS,#FS,KF3,4FS 
42Q DATA #F1,4F7,#FO,#FA,#EF,#FD,#EF,HOD,#EF, #05 ,#F0,#D6,#F1,#09,#F3,#0E 
430 DATA #F5,#OD,HF7,#0F,#FA,#10,#FD,#11,#00,#1D,H0S,#1D,#06,#1C,#09,#1B 
449 DATA #QC,#1A,#GE,#19,#10,#17,H#12,H#15,#14,#13,#16,#11,#18,H0F,#19,4#@C 
450 DATA #iA,#09,#1B,H06,H1C,#03,#1C, #00, #1C,HFD,H#1B,#FA,#1A,#F7,#19,4HF4 
468 DATA #18,#F1,#16,#EF,#14,HED,#12,#EB,#10,HE9,HRDE,HE7,HQC,#E6, #09 ,#ES 
470 DATA #06,#E4,H035,HES,HOD,HES,H#FD,#ES,#HFA,HEA4,H#F7,4#ES,#F4,#E6,4F2,HE7 
48Q DATA #FD,HE7,#EE,#EB,#EC,#ED,#EA,#EF,#E8,#F1,HE7,4F4,#E6,#F7,HES,#FA 
490 DATA #E4,HFD,#E4,#Q0,HE4,#03,HES, #06, #E6,#09,HE7,#OC,#EG,#QF ,HEA,#11 


S0Q DATA #EC,#13,HEE,#15,4F0,#17,#F2,#19,HF4,#1A,4#F7,#1B,#FA,#1C,#FD,#1D 
510 DATA #01,#ai 
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Encore un tour. Cric, crac. Ça 
y est, le coffre est ouvert ! 
Filons ! 


L’aurez-vous deviné ? Le PC-1500 
est devenu un véritable coffre-fort 
dont vous devez faire sauter la serrure. 
Facile ? Non seulement il vous faudra 
de l’oreille et de la jugeotte pour trou- 
ver la clef mais vous devrez aussi 


CRIC, CRAC 


découvrir la nature du système 
d’alarme. 


Ce coffre possède une combinaison 
à quatre chiffres. Pour la trouver, il 
faut faire tourner un à un les quatre 
barillets jusqu’à l'affichage de la 
bonne solution. À chaque tour de 
barillet, l’ordinateur émet un petit clic 
sonore. Avec une bonne oreille, on 


l:CLEAR : RESTORE 
"CODE": CO=PEEK 
8&7863*x256+8&C5: 
FOR I=COTQ I+5 
3:READ J:POKE 
I, J:NEXT I 

5S:WAIT @:RANDONM 
: BEEP ON : BEEP 


3: PRINT * * 
X%X COFFRE FORT 
LA : J$=" LL 


IB:FOR I=1T0 4: 
CALL C0+29:FO0OR 
J=ITO IS:NEXT 
J:NEXT 1 

1IS:FOR I=67T0 9:@$ 
CIJ)=STRS CRND 
1B-)1):NEXT I 

28:FOR I=I1TO 4:@$ 
CID=STRS (RND 
1Q-1):NEXT 1 

25:TIME =9:CLS 

30:E$=A$S+/J$+B$+J$ 
+C$+J$+D$: 
CURSOR D:PRINT 
LL P+E$ 

32:1F F$=A$SIF B$-= 
G$JIF C$=H$IF D 
$=IS$CURSOR 18: 
PRINT "CLIC''!' 
": GOTO 380 

°35:E<ASC INKEYS 
IF E=PTHEN 635 

AB: IF E<I170R E>28 
THEN 65 

AS:E=E-16:IF F<E 
LET U=U+]:GOTO 
59 

58:U=8 
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55:F<E:AQ=VAL Q@$(E 
D+1:1F A=I8LET 
A=8 
G$S(E)=STR$S A: 
BEEP 1, ABS (A- 
VAL G$(CE+5))%2 
. +1, 198 
65:I1F TIME 215E-4 
CALL C0+29:FO0OR 
1=1T0 9:NEXT I! 
: CALL CQ+29:Uz= 
U+1:GOT0 (U=5) 
x298+20 
78:IF U>STHEN 318 
75:GO0T0 30 
380:FOR I=1T0 68: 
BEEP 1, RND 25, 
IBB:NEXT I 
385: GOT0 385 
319: CUÜRSOR 18: 
PRINT "UROUIN! 
ll 


69: 


. 


315:CALL CO:GOTO 3 
15 
"CODE"DATA 72; 
1, 24, 5, 106, 75, 
30, 1, 198, 236, 1 
11, 98, 119, 8, 15 
3, 8, 199, 238, 11 
l, 96 
DATA 119, 190,1 
45, 8, 82, 94, 8, 1 
53, 21, 7/2, 112, 7 
4, 8, 196, 0, 5, 18 
9, 255, 65, 78, 78 
: 153, 8 
428:DATA 72,113, 74 
: D, 96, 118, 2, 15 
3, 17, 154,8, 4,0 


480 


410 


parvient à trouver la combinaison. Ce 
sont les touches de fonction situées au- 
dessous de chaque barillet affiché qu’il 
faut presser pour les faire tourner. 


Attention : le coffre est protégé par 
un système d’alarme connecté au com- 
missariat voisin et commandant une 
sirène. De plus, un système de brouil- 
lage a aussi été connecté sur la ser- 
rure ! Le mode exact de fonctionne- 
ment de cet attirail de protection vous 
est inconnu : découvrez-le vite, car le 
temps vous est compté, vous pouvez 
être arrêté. 


Si la sirène d’alarme se déclenche, 
vous êtes pris. Pour rejouer, dix 
années plus tard, faites BREAK puis 
RUN. Lorsque vous aurez enfin réussi 
à ouvrir le coffre, une mélodie se fera 
entendre saluant votre victoire. 


Le programme ne pose aucun pro- 
blème d’introduction pour ce qui con- 
cerne sa partie Basic. En revanche, 
faire très attention pour introduire les 
codes du langage-machine rangés en 
lignes de DATA. Une seule petite 
erreur et il faudra tout recommencer. 


A vos barillets, donc, et bonne 
chance ! Solution dans le prochain 
numéro de LIST. 


Frédéric CHARLES 
LIST - PAGE 75 


Dans LIST 4, page 73, on avait 

déjà trouvé quelques trucs desti- 
nés à faciliter la vie des programmeurs 
sur C. 64. En voici d’autres, concer- 
nant principalement l’affichage, que je 
vous livre pêle-mêle. 


Avec POKE 204,0 (clignotement du 
curseur pendant un GET), il est pos- 
sible qu’en sortie le curseur reste visi- 
ble selon qu’il est allumé ou non. Pour 
remédier à ce défaut, il faut prendre 
le caractère sous le curseur avant le 
GET et le réafficher en sortie. C’est 
facile à réaliser quand on sait que : 
e l’octet 206 contient le caractère sous 
le curseur ; 

19 


OUR LEE EE LEE LES LEE EE SE EST TE 


DES TRUCS EN VRAC 


e les octets 209 et 210 contiennent 
l’adresse de la ligne où se situe le 
curseur ; 


e l’octet 211 contient la position du 
curseur dans la ligne. 


Ainsi POKE (PEEK (211) + PEEK 
(209) + PEEK (210) x 256), PEEK 
(206) imprime ce qu’il y avait sous le 
curseur. Sur ce point précis comme sur 
la plupart de ceux qui vont suivre, on 
pourra se reporter au programme ci- 
dessous. 


La séquence POKE 214, 12: 
PRINT : PRINT « TEXTE » n’affi- 
che pas le texte sur la douzième ligne 


d’écran, mais sous la quatorzième. En 
effet, la première ligne de l’écran porte 
le numéro 0, et l'instruction PRINT 
fait effectuer un saut de ligne. Le pro- 
gramme donné ci-dessous numérote 
les lignes de 1 à 25 et les colonnes de 
1 à 40. 


Pour choisir de faire sortir les infor- 
mations sur l’écran ou sur l’impri- 
mante (voir Sur la piste directory, dans 
LIST 4, page 54), il suffit d’utiliser le 
mode « CMD », et les informations 
en sortie seront dirigées soit vers 
l'écran soit vers l’imprimante, et cela 
sans modification du programme. 


Les octets 53270 et 53265 recèlent 


qe : Du neuf sur les: Écrans: 64@ FY=5:PH=2:GOSUB 9139 

20 FR ‘ 658 : 

18 PEN # UTILITAIRES * Utilitaires pour Cu64 1 ES PRINT DEROULEMENT DE 1 PIXEL VERS LE HAUT 
Sa REN M AUTEUR G. FOUCAULT à Auteur GRAS Heupaule; 670 B 

52 R G. * ; : 680 PY=7:PH=12:D0CUR 9299 

9 REM % "CORRE Far 699 PRINT'DE L'ECRAN" 

F9 REM HAMMAM ONIONOON fit PHONE, 708 GOSUB 229 

89 : 719 FV=25:PH=10: COSUE 3190 

99 FOKE 53290,6:FOKE 39281, 6 729 FORI=1 1925 

100 PV<10:PH=6 IGOSLE 9192 730 POKES3265. CPEEKCS22652AND248 2 0RT 
119 PRINT : GOSUE9230 

129 FRINT"DEMONETRATION  D'UTILITAIRES" PRINT "EOHJOUR LIST": 

150 : FOR D=6 TO © STEP -1 

149 GOSUB 52 POKES32€5, (PEEK(53265>ANDZ42>0RI 
152 PV=5 :PHeS:GOSUE 9190 GOSUR S6Q:NEXT D'MEXT I 

168 PRINT'ESSAI DE LA FONCTIOH GET POKESA26S, 27 

178 FV=10 : PH=B : GOSUB9200 GOSUE 9949: PRINTCHRE € 1472 : ENT 
180 GOSUE 9050 | 

199 A=25:1F IMPRIME THEH A=S PV=15:PH=2:G0SUR 9290 

209 FOR 1 = 1 TO A PRINT'APPUYEZ SUR UNE TOUCHE POUR COMMENCER 
219 PRINT TAB(1@)"BOHJQUE LIST" GOEUBH298 : RETURN 

229 HEXT 1 

230 


GOSUE 3138: 
z49 G 93 
290 Py25:FH=2:GOSUE 
268 : 

2r& 


8136 


EHD 


FORK=<QTO SB:MHEXT K: 


RETURH 


PRINT'DEROULEMENT DE 1 FIXEL VERS LA GAUCHE REM %%# SOUS PROGRAMME GET Af 
230 : : 
290 Pv=7 FH=€:GDSUB 9209 POKEZ04,9:POKE198, 0: MAITISS.1'GET A$:POKEZO4. 1 
309 FRIHT"D'UHE CHAINE DE 49 CARACTERES" POKE(PEEK(211)+PEEK(209)+PEEK<2102#256), PEEK 2062 : RETURH 
310 GOSUE 329 : 
328 FOKE S3279,PEEK(S327G>AND 249 REM Wwmk SOUS PROGRAMME IMPRIMANTE 
339 A$=" TEIL RUOJNOP TSIL RUOJHOR TSIL RUOJMOE" É 
54% Pu=1@:FH=1:GOSUE 9190 PRINT "SORTIE SUR IMPRIMANTE OVH ==> " 
359 FOR I=LEH<A$) TO 1 STEP -1 GOSUB 9209 PRINT A 
260 ES$=B#+MID#<A#. I: 1) IF AfCD"0" THEN IMPRIME=Q : RETURN 
37G PH=I'GOSUR 9290: PRINT " TEXTE OÙ GRAPHIQUE T/G ==> " 
389 POKE 53270, (PEEKCS32702AND 249)+7 FRINT Ef 38 COSUP 9090 :PRINT A$:IMPRIME=1 
390 FOR D=6 TO © STEF -1 93100 IF A$CD°M" THEN OPENS, 4: CMDS : RETURN 
408 POKE 53270, (FEEK(53270AND 240)+D: 911A OPENS, 4, 7: CMD9 : RETURN 
41@ GOSUR SÉQ:HEXT D'MEXT I 9120 : 
420 FOKE 59270: (PEEK(S327R2AHD 24006 8 9130 IF IMPRIME THEN PRINT#9:CLOSES 
432 GOSUE 934@ 3140 RETURN 
448 Pys5:PH=2:GOSUE 9190 9150 : 
430 9160 REM %%% SOUS PROGRAMME CURSEUR 
469 PRINT'DEROULEMENT DE 1 FIXEL VERS LA DROITE 9170 : 
479 : 9160 REM Py=POSITION VERTICALE : PH=POSITION HORIZONTALE 
489 FY=7:FH=8:GOSUE 929% 9198 PRINTCHR# 147) 
499 FRINT'U'UMNE CHAIME DE CARACTERES" S200 IF FV > 25 THEN PV = 25 
309 GOSUB 820 9210 PYePV-2:IF PY € 9 THEN PV=-1: PRINT CHR#< 192; : 
S10 B#="":FOKE S3270,PEEK"S327O AND 24 9220 IF FY > -1 THEN POKE214,PY:PRINT 
529 Af="EOHIJOUR LIST EOHJOQUR LIST EOHJOUR LIST BOHJOUR LIST 9230 PH=PH-1:1IF FH<@ THEN PH=g 


EOHJOUR LIST" 


9240 IF PH>39 THEN PH=39 
530 FV/<19:PH=1:GOSUE 91398 9250 POKEZ11,FH:PV=FY/42: PHePH+1 :RETURH 
540 FOR I=LEN(A#: TO 1 STEF -1 9269 : 
SSQ B#$=MID#(A#, I, 12+E4 9270 REM ww%k SOUS PROGRAMME CLIGNOTEMENT ECRAN 
569 IF LEMHCB#)> 40 THEN E#=LEFT#:E$, 42) 9280 : 
S78 GOSUE 3229 9290 FOR ZZ=0 TO 1'2Z=0 
569 FOKE 53270, (PEEK<S3270)AND ZA PRINT B# 9300 POKES3265,PEEK<53263) OR 16:GOSUB 9348 
590 FOR L=2 TO € 9310 GET A$:1F A$ THEN Z2me:NEXT RETURN 
6Qg FOKE 57270, (PEEKCSSE7R AND 2453+1 9320 POKES3265,PEEK(53265) AND 233 :GOSUR 9342 
619 SOSUB A€G'MENXT D'MEXT I 9330 NEXT 22 
629 POKE 53278, (FEEK(SS2F@AHI E4fiO0R à 9349 FOR 1Z=0 T0 SO9:HEXT 1Z'RETURN 
€39 CGOSUE 9349 
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quelques possibilités très intéressantes. 
Ainsi, à la mise sous tension, l’octet 
53270 a pour valeur 200. Les bits 8, 
7 et 4 sont à 1, ce qui nous fait bien 


Lorsqu'un programme utilise des 
données en grand nombre sous 
forme de lignes de DATA, rien n’est 
plus fastidieux que de taper ces lignes. 
I! faut être sûr de la nature des DATA, 
valeurs numériques ou chaînes de 
caractères et de leur nombre. 
Ce petit programme vous facilitera 
la tâche en numérotant et en tapant 
DATA au début de chaque ligne de 


138 CLEAR]508 
140 DIMLIGNES(120) 

1F N(1888 THEN 158 
180 JF NAC} THEN 


218 GOSUB 4 
û CLS 
240 L=]+)8 


268 FOR He] 
278 COLOR],7:PRINT LS#(H); 


@ CES" 
368 COLOR 


388 COLOR 
398 PRINT :PRINT 


418 PRINT LIGNES(]) 
428 NEXT ! 


498 DIM L#CNND) 
500 FOR H=] TO Ni 


520 rit 
548 RETURN 
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128 + 64 + 8 = 200. Pour allouer 40 
colonnes à l’écran, il suffit de mettre 
le bit 4 à 1. Mis à O, il n’en alloue plus 
que 38, auquel cas les colonnes 1 et 40 
sont occultées ; le contenu n’en est pas 
perdu et l’affichage (masqué) est 
possible. 


Par ailleurs, toujours dans l’octet 
53270, les bits 1, 2 et 3 positionnent 
l’image sur l’écran. Le premier d’en- 
tre eux, mis à 1, décale l’image d’un 
pixel vers la droite. Le bit 2, mis à 1, 
décale l’image de 2 pixels, et les bits 
1,2 et 3 mis à 1 décalent l’image de 
7 pixels vers la droite. Enfin, le bit 4 
mis à 0 et les bits 1, 2 et 3 mis à 1 
allouent 38 colonnes à l’écran, les 
colonnes 39 et 40 étant alors occultées. 


En combinant ces différentes 
actions, on parvient à faire se dérou- 
ler des chaînes de caractères à l’écran, 


GÉNÉRATION AUTOMATIQUE DE DATA 


façon automatique. Il vous permettra 
d’entrer vos données sans erreur con- 
formément à un masque de saisie que 
vous aurez préalablement défini. 
Enfin, chose très importante, il met- 
tra automatiquement les virgules entre 


chaque DATA. 


Jean-Paul CARRÉ 


100 ‘’+x+* GENERATEUR DE LIGNES DE DATA *%# 
120 CLS 


150 INPUT'Numero de la lere ligne de Data a generer (Superieur au No de la 
CUT ligne de votre programme) *:N 


170 IF NACE PREND Te lignes ";NA 

190 INPUT “Nombre de lignes (max 28 # la tois.)*;NL 
288 PRINT" Derininsez un masque * 

238 FOR te A CNL-JD4NA STEP NA 

288 CARE ARMES DATA * 


:COLOR 7,8:INPUT Ds 
288 LIGNEO(I)=LIGNES(1)+084" ," 
NEXT_H 


Q 
3ee LIQNESCDSLERTCEIGNENCI), LENÇLIGNES(T?7+1) 


370 ÉRINT" Validstion des lignes Data” 
7,0 
400 FOR 1.9 TO (NL-12#NA STEP NA 


. LOCATES,19:PRINT"Validez ces likhes eh amenant le curseur sous chacune 
d'elles puis en frappant”; :COLORO,3:LOCATE 28,21 :PRINT'ENTREE *:COLOR 7,0 

448 PRINT"teire DELETE-999": 

45e PEN puis SAVE 'DATAS'°,A" 


478 à ##* GENERATION OU MASQUE DE SAISIE 
488 INPUT"Nombre de donnees par lighe ":NND 


510 PRINT FLibelie de la donnes No*;H; 


pixel par pixel, de la gauche vers la 
droite ou inversement. 


A la mise sous tension, l’octet 53265 
vaut, quant à lui, 27 : les bits 5, 4, 2 
et 1 sont donc à 1. Si l’on met le bit 
6 à 1, on passe en mode graphique. Le 
bit 5 à 0 occulte complètement l’écran. 
Toute la couleur du cadre est alors 
visible, mais les informations affichées 
à l’écran ne sont pas pour autant 
perdues. 


Si l’on met le bit 4 à 1, on obtient 
un écran de 25 lignes (24 lignes quand 
il est à zéro). Comme dans l’octet 
53270, les bits 1, 2 et 3 positionnent 
l’image sur l’écran. Les bits 1 et 2 mis 
à O0 descendent l’image de 3 pixels, et 
le bit 3 à 1 la décale vers le haut de 4 
pixels. On peut ainsi faire défiler tout 
Pécran vers le haut pixel par pixel. 

Cette dernière possibilité est illus- 


trée, comme les précédentes, par le 
programme de démonstration. 


Gérard FOUCAULT 


POKER 
AVEC ADRESSE 
SUR L'ÉCRAN 


La gestion de l’écran par le 

système d’exploitation de 
l’Amstrad est remarquable sur bien 
des points. Il suffit pour s’en convain- 
cre de manipuler un peu les fenêtres, 
ce qui est rendu très facile par l’inter- 
médiaire du Basic. De même, la redé- 
finition des caractères est d’une éton- 
nante simplicité, pour autant qu’on 
veuille se contenter de caractères 
monochromes. 


Mais si vous envisagez des applica- 
tions très élaborées (images en haute 
résolution multicolores, par exemple), 
vous devrez peut-être tourner vos 
regards du côté de la mémoire d’écran. 


Celle-ci occupe le quart haut de la 
mémoire vive, entre les adresses 
&CO000 et &FFFF. Ce qui représente 
tout de même la taille respectable de 
16 Koctets ; cette zone étant 
modifiable. 


Si ces adresses peuvent être gérées 
depuis le Basic à l’aide de simples 
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POKE, ou mieux encore en langage- 
machine, il est préférable d’étudier la 
zone mémoire-écran de plus près, car 
l’adressage des points sur l’écran y est 
tout à fait inhabituel. 


L'origine écran (en haut à gauche) 
a pour adresse théorique &CO000, ce 
qu’un POKE &C000, 255 pourra vous 
indiquer. En mode standard, ce POKE 
allume quatre pixels sur l’écran (8 bits 
pour 4 pixels, voilà l’indice d’une 
organisation spéciale des octets !). Il 
faudra donc deux POKE pour couvrir 
la largeur d’un caractère. 


Pour allumer les quatre points d’à 
côté, il n’y a aucun problème avec un 
POKE &C001,255. Mais si vous vou- 
lez allumer les quatre points de gau- 
che sur la seconde ligne de pixels, les 
choses se corsent : vous pouvez 
essayer d’ajouter 80 (en décimal) à 
l’adresse d’origine. Ce serait logique, 
mais faux : essayez POKE &C000 + 
80,255... Les points allumés seront 
ceux de la huitième ligne de pixels, 
c’est-à-dire au sommet du caractère 
éventuellement situé sur la deuxième 
ligne de l’écran-texte. 


L’allumage des pixels corrects doit 
se faire avec POKE &CO000 + &800, 
255. Le décalage entre chaque ligne est 
donc de 2048 ! Le tableau ci-dessous 
vous en dira plus qu’un long discours 
sur l’enchaînement des adresses 
d’écran. 


Le coin supérieur gauche de l'écran : 


adresses des premiers caractères 


VIDAGE EN FORTH 


Si, pour une raison ou pour une 
: autre, vous êtes curieux de savoir 

ce qui se trouve exactement dans la 
mémoire de votre ordinateur, vous 
avez besoin d’un petit programme de 
© vidage (en anglais ‘‘dump’’). En voici 
un, rédigé en Forth et destiné aux uti- 
lisateurs de l’Hector HRX. 


On le lance de deux façons : soit en 
indiquant l’adresse du départ en déci- 
mal puis en tapant HEX et DUMP, 
soit avec HEX, l’adresse de départ en 
hexadécimal et DUMP. L’affichage 
s’effectue sur 7 colonnes. Les deux 
: premières contiennent l’adresse en 
hexadécimal et en décimal. Les qua- 
à tre suivantes correspondent à l’octet : 
valeur en hexa, traduction en ASCII, 
valeur en décimal et en binaire. La der- 
à nière colonne enfin indique la valeur 
sur deux octets. 


En appuyant sur la touche 1, on 
augmente l’adresse de 10 (hexadéci- 
mal), soit 16 en décimal. En pressant 
2, on avance de 100 (h), soit 256 (d) ; 
! et avec 3, on avance de 1000 (h), soit 
> 4096 (d). Inversement, on diminue 
l'adresse de 10, 100, 1000 (h), soit 16, 
256 et 4096 (d) en pressant respective- 
ment sur À, Zet E. L’appui sur toute 
"autre touche fait passer à l’adresse 
7 immédiatement suivante. Enfin, on 
‘interrompt le vidage avec R/C. 


En bref, pour allumer un demi- ## 
caractère à l’origine-écran, il faudra 
taper : FOR A=0 TO 7:POKE 
&C000 + Ax&800,255:NEXT A 


Et il y a pire... Lorsqu'un déroule- À 
ment d’écran a lieu, provoqué par 
exemple par la descente du curseur, les 
adresses sont elles aussi décalées. Fai- 
tes donc l’essai suivant : MODE 1, 
puis POKE &C000,255 


Descendez le curseur jusqu’au bas 
de l’écran pour provoquer un scroll, 
puis tapez à nouveau POKE # 
&C000,255. Intéressant, non ? 


Robin BOIS 


Michel BROCHAND 


ai Vidage en Forth 
Programme pour Hector HRX : 


* Auteur Michel Brochand 
Copyright LIST et l’auteur 


2 |ECRAN N. 1 DUMP MEMOIRE 

4 HEX : ADH ODUP O0 C4 + + + # +) TYPE | 
À] SPACE ; STANDARD Ë 

A2: ADDE DUP DECIMALO(és#4%# 4) 
}. TYPE SPACE 3A EMIT SPACE HEX ; 

: AFOH OUP CQ 0 + + + +) TYPE SPACE 

: AFODE DECIMAL DUP CG O(+s+44# 
TYPE SPACE ; 

: AF? C@ OUP 1F > SWAP 7F € AND ; 

©: AASCI DUP OUP AF? IF C EMIT SPACE 

ELSE DROP 2E EMIT SPACE THEN ; 

: AFBIN DUP 2 BASE !COO(+#+4#: 

# ++ +) TYPE SPACE HEX ;- 

: AV2OH DUP @ DECIMAL 0 + # 6 4 # # 

+> TYPE HEX ; 

7: DUMP CR BEGIN CR ADH ADDE AFOH 

AASCI AFODE AFBIN AV2OH KEY DUP 

0D = NOT WHILE CASE 31 OF 10+ENDOF 

2141 OF 10 - ENDOF 32 OF 100 + ENDOF 5A Ê 
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*200F 100 - ENDOF 33 OF 1000 + ENDOF 45 À 
+ 910F 1000 - ENDOF DROP 1+ DUP ENDCASE  : 
té REPEAT DROP DROP CR DECIMAL ; DECIMAL : 
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Le TRS-80 Modèle III est équipé 

d’un logiciel intégré d’une puis- 
sance surprenante : il trie un tableau 
de 50 éléments en une seconde alors 
qu’il en faut une trentaine avec un tri 
de Hoare. (D’autres modèles l’ont 
aussi, tout dépend de leur système 
d’exploitation.) 

Mais ce logiciel ne trie que les chaî- 
nes et l'utilisateur n’a pas accès au pro- 
gramme. L’édition triée d’un fichier 
sur disque est donc interdite par ce tri. 
Chaque argument doit en effet être 
suivi du numéro de sa fiche pour pou- 
voir récupérer celle-ci après le tri. 


Il existe cependant un moyen sim- 
ple d’utiliser ce « super tri » : ajouter, 
à chaque argument, l’élément chaîne 
du numéro de la fiche, au moment de 
la création du tableau à trier. Par 
exemple, si un fichier de noms N$ doit 


AMÉLIORER LE TRI 


être trié alphabétiquement, on créera 

le tableau T$ ainsi : 

10 FOR I1=1 TO LOF(I) 

20 GET 1,1 

30 T$(1) = N$ + STR$(I) ’si le fichier 
commence à 1 

40 NEXT 


Le tableau ainsi créé, on le trie par : 

50 CMD ‘‘O”’, LOF(1),T$(1) 

LOF(1) représente le nombre d’élé- 
ments de T$, et T$(1) indique le pre- 
mier du tableau à trier. Il est alors uti- 
lisé en récupérant pour chaque élément 
le numéro de la fiche qu’on y a précé- 
demment accroché : 

60 FOR I=1 TO LOF(I) 

70 GET 1,VAL(MIDS(T$(I),L+1)) 
’L est la longeur du secteur Field 
de N$ 

80 PRINT N$;A$;B$; etc. ’secteurs 
Field 


90 NEXT:GOTO... 


La récupération du numéro de fiche 
se fait par un MID$ commençant au 
premier caractère après la fin du sec- 
teur Field de N$, et allant jusqu’à la 
fin de l’élément du tableau. Ceci rend 
impossible toute emprise sur un carac- 
tère de N$ qui viendrait annuler le 
VAL. 


Il ne faut pas oublier de prévoir 
DIM TS(LOF(1)) et CLEAR n,oùn 
couvre le nombre total de caractères, 
par exemple LOF(1)*(L +3). Pour un 
tri dégressif, il n’y a qu’à utiliser le 
tableau trié à l’envers par : 

FOR I=LOF(1) TO 1 STEP -1] 


Il ne vous reste plus qu’à essayer, 
avec un vrai fichier. 


Francis GOUDARD 


CALCUL D'INTÉGRALES 


Si vous êtes comme moi élève de 

terminale, vous savez que dans 
très peu de temps, nous aurons à 
““plancher”” sur une étude de fonction 
(logarithme, exponentielle). Et que, 
très vite, on aboutira au calcul de son 
intégrale. 


Mon programme ne fera pas le tra- 
vail à votre place, mais il vous permet- 
tra de vérifier votre résultat. En effet, 
il ne démontre rien, il calcule ! 


Après avoir rentré le programme 
dans votre PB-700, faites RUN. Il 
vous demande alors les deux bornes 
d'intégration (les rentrer une par une}. 
Environ cinq secondes après, il affiche 
une magnifique intégrale. Seulement 
voilà, comme vous avez pu le remar- 
quer, la ligne 30 contient la fonction 
choisie pour mon exemple : 
Y(X) = 1/X. Pour une autre fonction, 
il suffira de faire EDIT 30 et de rem- 
placer 1/X (à droite du signe ‘‘ =”) 
par la nouvelle fonction, pour obtenir 
l’intégrale correspondante. 
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5 REM INTEGRALES-CHRSTOPHE MAURIN RP A be diet 


19 CLS : ANGLE 1 


15 INPUT "BORNES D INTEGRATION"; A1; A2 


:DIN YCA2*10) 
28 H=CA2-A1)/8 
25 FOR X=Ai TO A2 STEP W 
38 YCX)=1/X 
35 IF Xx=Ai THEN I=1 
49 IF X=A2 THEN I=i 
45 YCX)=IXYCX) 
50 IF I=4 THEN I1=2 ELSE 1=4 
55 S=S+YCX) 
68 NEXT X:Z=Uxs/3 
65 CLS 


78 PRINT CHR$C156); A2; CHR$C150) ; "=" 
SING'#H#HH. HHRE "5: Z; CHR$SC159) : USING": Al 


25 IF INKEY$="" THEN ?5 ELSE CLEAR 


Une remarque très importante : les 
bornes d’intégration doivent être ren- 
trées dans un ordre croissant. Par 
exemple, pour le calcul de ff 1/t dt, 
il faut rentrer 1 d’abord, puis 4. De 
même, si les bornes avaient été inver- 
sées (il suffirait, pour avoir le bon 
résultat, d’en prendre le signe opposé). 


Enfin, si vous souhaitez une plus 
grande précision, remplacez le ‘8’ de 
la ligne 20 par une plus grande valeur, 
ou bien modifiez le format d’impres- 
sion de la ligne 70. 


Christophe MAURIN 
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I 14 RÉCRÉ DE LIST 


LES JEUX 


ET CASSE-TÊTE 
INFORMATIQUES 


de Thierry CHAMORET 


ES jeux et casse-tête qui vous sont proposés 
dans cette rubrique ont plusieurs aspects. 

Tout d’abord, ils peuvent être pris sous l'angle ludique, c'est-à-dire 
qu'il s’agit de jeux, de petits problèmes plus ou moins faciles à résoudre. 
Ils ont également un aspect pratique. Ils permettent 
en effet à chacun d'exercer son agilité logique. Et il n’est pas nécessaire, 
pour trouver la solution, d’avoir un ordinateur sous la main... 
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Un programme anticonvivial 


Un programmeur, à qui l’on a 
demandé d’écrire un logiciel per- 

mettant d’effectuer la moyenne des 
valeurs comprises entre 0 et 20 a écrit 
le programme suivant : 

10 DIM Valeur (100) 

20 INPUT Nombre 

30 FOR I = 1 TO Nombre 

40 INPUT Valeur (1) 

50 NEXT I 

60 Total = 0 

70 FOR I = 1 TO Nombre 

80 IF (Valeur (1) <0) OR (Valeur (1) 

> 20) THEN GOTO 130 

90 Total = Total + Valeur (1) 

100 NEXT I 

110 PRINT Total/Nombre 

120 STOP 

130 PRINT « Valeur erronée » 

140 STOP 

150 END 
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nr . 


VEILEZ À €E QU'it \ 
RESTE COU T 

ET SORTOUT : EVITEZ 
LES PROGRAMMES , 
ANTICONVIVIAUX ? 
nn, di 


"à 


FALAR 


Sans qu’il soit besoin de mettre en 
œuvre ce programme, nous constatons 
immédiatement qu’il n’est pas très con- 
vivial, pas très agréable à utiliser. Quel- 
les remarques ne manquerait pas de 
faire un utilisateur de ce programme ? 
Vous pourrez en trouver au moins dix, 
d’autant que vous n’aurez aucun regret 
à critiquer un programme que vous 
n’avez pas écrit. 
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La parité des mots 


Lors des transferts d’informa- 
tions, que ce soit à l’intérieur 
même de l’ordinateur ou en direction 
des périphériques, les erreurs sont 
redoutables. Différentes méthodes ont 
été élaborées pour les détecter. La plus 
simple d’entre elles consiste à ajouter un 
bit de parité à chaque octet transmis. 


Prenons par exemple un octet repré- 
senté par la suite de ses huit bits : 
01000110. 


Il a pour valeur décimale 70 (2$ + 2? 
+ 2! = 64 + 4 + 2). Il possède un 
nombre impair de bits à 1. Pour réta- 
blir la parité, on ajoute un neuvième bit 
que l’on met à 1. Ce neuvième bit sera 
appelé bit de parité :01000110.1 


* Les solutions des jeux proposés ici paraîtront dans le prochain numéro de LIST 
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Po ES 


é: HAVE AN 
INFORMATION . 
FOR You... Tr EN 


x 


# _ J'ATUNE INFORMATION Poor Vous! 


— SEULEMENT UN PETIT Bit! (ou: UN FÆNT PE 
VIT "EN ANGLAIS SiGNIFE “UN GRIN *) 


Bien entendu, si le nombre de bits à 
1 est pair, le bit de parité sera égal à 0. 


Ce bit n'intervient pas dans la signi- 
fication de l’octet, mais constitue un 
moyen de contrôle. Ainsi, avec cette 
technique, si une erreur de transmission 
sur un bit survient, elle est immédiate- 
ment détectée. 


Le problème est de calculer ce bit de 
pârité. Sur les ordinateurs possédant un 
dispositif de contrôle de parité, un cir- 
cuit spécialisé se charge en général de ce 
calcul. Sinon, il est nécessaire d’écrire 
une routine en Assembleur chargée de 
compter le nombre de bits à 1. Si ce 
nombre est pair, le bit de parité est égal 
à 0. Dans le cas contraire, il est égal à 1. 

Dans un langage évolué (Basic, par 
exemple), nous n’avons pas le moyen de 
tester si un bit est égal à 0 ou à 1 dans 
un octet. Mais vous trouverez certaine- 
ment le moyen de vous en sortir avec les 
opérations classiques de votre ordina- 
teur ou de votre calculatrice program- 
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En toute logique 


A et B sont deux variables logiques 
pouvant chacune prendre l’une des 
deux valeurs faux (0) ou vrai (1). Sim- 
plifiez les équations logiques suivantes, 
bien entendu sans en calculer les 
valeurs : 
. non (non B ou A) 
. (A et B) ou (A et (non B)) 
. (A ou B) et (A et B) 
. non ((A ou B) et B) 
. non ((non A) et (non B)) 


Un & © D — 
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6. ((non A) et (non B)) ou B 

7. ((non A) et B) ou (A et B) 

8. ((non A) et (non B)) ou ((non A) et B) 
9. ((non A) et (non B)) ou (A et (non 
B)) ou (A et B) 

10. À et (A ou B) et (non B) et (A ou 


(non B}) 


Lequel des trois 


| Avez-vous une idée de l’ordre de 
grandeur de certaines valeurs rela- 
tives à l’informatique ? Les cinq ques- 
tions ci-dessous vous proposent trois 
réponses possibles, dont l’une est 
exacte. À vous de la déterminer. 
1. Quelle est généralement la vitesse 
de rotation d’un disque souple ? 
a - 30 tours par minute 
b - 300 tours par minute 
e - 3000 tours par minute 
2. Mark 1 a été un des premiers ordi- 
nateurs construits dans le monde. 
Quelle était sa vitesse de calcul ? 
a - 1200 multiplications à la seconde 
b - 12 multiplications à la seconde 
ce - 12 multiplications à la minute 
3. Quel était, en 1981, le nombre 
moyen de lignes de listes imprimées dans 
les entreprises utilisant un ordinateur ? 
a - 555 lignes par an et par salarié 
b - 5550 lignes par an et par salarié 
€ - 55500 lignes par an et par salarié 
4. Quelle est la productivité moyenne 
d’un programmeur professionnel tra- 
vaillant sur un grand projet ? 
a - 5 instructions par jour 


b - 50 instructions par jour 
€ - 500 instructions par jour 


5. En 1987, il y aura approximative- 


ment 76 millions de micro-ordinateurs 
installés dans le monde. Combien y en 
avait-il dix ans plus tôt, en 1977 ? 

a - 5000 micro-ordinateurs 

b - 50000 micro-ordinateurs 

€ - 500000 micro-ordinateurs 
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Recherche du DU 


5 Les langages de programmation ne 

disposent pas toujours de la fonc- 

tion appelée quelquefois POS, INSTR, 

ou STRPOS, dont l’objet est de retour- 

ner la position d’une sous-chaîne dans 

une chaîne. Dans ce cas, il est nécessaire 

d’écrire un sous-programme réalisant 

un tel traitement. Cela semble simple au 

premier abord, mais cette opération est 

en fait plus complexe qu’elle ne paraît. 

Ainsi, pour rechercher la séquence 

« DU » dans une chaîne, un program- 

meur a écrit le petit programme sui- 

vant : 

10 Pos = 0 

211 =0 

301=1+1 

40 IF I > — LEN (Chaine) THEN 
GOTO 90 , 

50 IF Chaine (1) < > ‘“D’’ OR Chaine 
(A) < >‘‘d” THEN GOTO 30 

61=1I+I1 

701F Chaine (1) < > ‘‘U”’ OR Chaine 
(D < > ‘‘u”’ THEN GOTO 30 

80 Pos = I 


90 PRINT ‘‘Position :”’ ; Pos 


TI SEULEMENT 
f TONE LIGNE DE, 
/ LiSTING IMPRIMEE 
{ PAR AN ET FAR 
\ SAMARE . 


sous D er 4 


| / 9 


CEsr MAUVAIS 
Ce POUR LA COTATION 
EN BOURSE ! 


Dans ce petit programme, la 
variable CHAINE représente 
la chaîne dans laquelle il faut 
rechercher la première occur- 
rence de « DU ». Le langage 
utilisé permet ici d’indexer une 


ne chaîne comme un tableau de 


caractères, l’indice indiquant 
la position du symbole de la 
chaîne que l’on désire obtenir. 
Ce petit programme paraît 
simple. Et pourtant il donne 
| un résultat faux dans certains 
| cas. Arriverez-vous à trouver 
| dans quelles conditions il est 
erroné, et comment on peut le 
corriger ? 
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ré 

Les solutions der 

F oi j$T. Ce ne so 
Pas rcément les 


Fonctions logiques 


Les fonctions logiques comme le 

ou exclusif (ox), l’équivalence 
(equ), l'implication (imp) et la récipro- 
cité (rpc) sont rarement implantées dans 
les langages de programmation cou- 
rants. Ils peuvent être facilement rem- 
placés par des expressions analogues : 


e À < > B pour A ox B 


e À = B pour A equ B 
e À < = B pour À imp B 
eA > = B pour A rpc B 


Bien entendu, il existe d’autres solu- 
tions qui utilisent en particulier les opé- 
rateurs AND, OR et NOT. 


20 
Interdit de sauter 


1. La seconde version de pro- 

gramme fournit le même résultat 
que la première seulement dans le cas où 
le tableau Arrete ne contient qu’une 
seule valeur égale à 0. Dans les autres 
cas, la seconde version indique, par l’in- 
termédiaire de Prear, l’indice du dernier 
(et non du premier) élément égal à 0. 
Elle peut être facilement corrigée en 
inversant la boucle qui doit se faire de 
24 à 1 au lieu de 1 à 24: 


POUR I : = 24 JUSQU__A 1 PAS 
= —] 
SI Arrete (1) = O0 ALORS 
Prear : = I 
FIN__POUR 


2. Cette dernière version n’est toute- 
fois pas satisfaisante car elle explore la 
totalité du tableau Arrete. Comme seul 
l'indice du premier élément nul nous 
intéresse, nous pouvons l’écrire ainsi : 

Prear : = 1 
TANT __ QUE Arrete (Prear) < > 
O0 ET Prear < 24 
Prear : = Prear + 1 
FIN__TANT__ QUE 
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Max et les tableaux 


L. Pour supprimer le GOTO pré- 
sent après THEN, on inverse le 
sens de l’inégalité du test. Ce qui donne 
le programme. 
10M = 0 


20 FOR I = 1 TO 10 

30 IFT(I) > M THEN M = 
40 NEXT I 

50 PRINT M 


2. Le programme affiche toutefois un 
résultat faux lorsque toutes les valeurs 
du tableau T sont négatives. La valeur 
affichée est alors égale à 0. 


3. La correction du programme s’ef- 
fectue en initialisant la variable M non 
pas à 1, mais à T (1). Ainsi, la boucle 
en ligne 20, peut commencer à 2 au lieu 
de 1. 
10M = T (1) 

20 FOR I = 2 TO 10 

30 IFT(I > M THEN M 
40 NEXT I 

50 PRINT M 


TO 


= T (D) 
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Les clones informatiques 


Le programme ci-dessous est un 

exemple de clone informatique : 
son exécution entraîne sa reproduction 
exacte, et avec quelle élégance ! 


Bien entendu, quelques modifications 
devront être apportées selon les Basic. 
La seule particularité de celui qui est 


DIM ASCI4)LE 
AYC1)= DIM. A8 C14)1801" 
ASC2)="PRINI sue “58 
A$C3)= "FOR 
A$(4)= "PRINT 
A$(S)=°NEXT L 
ASC6)="FOR I=1 T 
CASC7)S "EUR Jet. 
|ASCB)S"IF À; 
A$(P)="NEXT. 
ASCID)="NEXT 
ASCILI="EUR 122 TO. 14» 
ASC12)="PRINT 23 
| ASC1SI="NEXT. 


"ARC"; VALS CT) 3") 


présenté ici est peut-être la ligne 100 : 
elle dimensionne un tableau de 14 chaî- 
nes pouvant mémoriser jusqu’à 80 
caractères. Un tel programme pourrait 
être écrit dans d’autres langages. Nous 
attendons toutes vos suggestions en Pas- 
cal, Fortran, Forth, Logo ou tout autre 
« dialecte ». 


DAT ASCL)" 
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